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i. How could the Applesoft Sampler disk be improved 
and made more useful? 
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Overview: Learning to Program 


Learning to Program 



Welcome! This is the manual for you if you want to learn to 
program or want to familiarize yourself with programming. 
Either way, it is designed so you can have fun while you 
learn. 

You will learn, for example, how to tell your computer to say 
hello to your friends; how to get your computer to act like a 
calculator; and how to program your computer to draw 
horses all over the screen. 

If you start at the beginning, try everything as it comes along, 
and make up your mind to take your time, it is pretty much 
guaranteed that you will learn how to program. The real 
secret is taking your time and trying everything. 

You cannot learn how to program just by reading this or any 
other book. When you learn to ride a bicycle, grow 
vegetables, or drive a car, you learn by doing. Making 
mistakes and correcting them is an important part of the 
process. It’s the same with programming: as you follow the 
directions in this manual, don’t worry if something doesn’t 
work the first time. Figuring out what went wrong will help 
you learn that much more. 

This manual is organized so each skill you learn is a stepping 
stone to the next. It also is organized to help you pace 
yourself: pause symbols indicate convenient stopping 
points. 
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Overview: Learning to Program 


I What Is Programming? 

Programming is the art and science of writing computer 
programs. 

A computer program is a set of instructions written in a code 
called a computer language. Programs make things happen. 
They may instruct a computer to display a message on the 
screen, to do complex tax calculations, to create a game, or 
to make designs. Programs, in other words, enable you to 
accomplish many things with your computer. 


I What Is BASIC? 


BASIC (Beginner’s All-purpose Symbolic Instruction Code) 
is a commonly used personal computer language. It is easy 
to learn and easy to use. There are many varieties of BASIC; 
each type of personal computer uses a slightly different 
version. It is rather like regional dialects: even though people 
speak differently, they generally use the same vocabulary 
and can understand each other. 

Applesoft BASIC, which is stored in the Apple computer’s 
permanent memory, is a particularly powerful variety of 
BASIC. It has some graphics capabilities that many other 
varieties of BASIC don’t have. This manual introduces you to 
Applesoft BASIC, but once you have learned Applesoft, you 
also will be able to understand other versions of BASIC. 


I What the Tutorial ^Covers 

This tutorial is a beginning guide to BASIC for Apple lie and 
lie owners and is based on ProDOS (Professional Disk 
Operating System), which is now Apple’s preferred 
operating system. An earlier version of this tutorial applies 
to the lie based on DOS (Disk Operating System). 
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Overview: Learning to Program 


Here is an overview of what this tutorial contains: 

• Chapter 1 introduces you to some simple statements for 
displaying information, calculating, and doing graphics. 

• Chapter 2 shows you how to write and save a complete 
program for later execution, teaches you several 
statements for creating loops, and gives you practice with 
adding remarks to your program and controlling spacing 
in the displayed result. 

• Chapter 3 tells you various ways you can edit your 
programs. 

• Chapter 4 shows you how to create motion, sounds, and 
random numbers, and introduces you to subroutines and 
high-resolution graphics. 

• Chapter 5 teaches you to use strings and arrays. 

Learning a computer language is like learning a second 
language: there are new words to learn, and there are rules 
about the relationships between them. There are about 100 
words in the Applesoft BASIC programming language. 
Several appendixes will help you with learning this new 
language: 

• Appendix A defines and summarizes all Applesoft 
statements. 

• Appendix B lists reserved words (don’t worry— you’ll find 
out what these are in due time). 

• Appendix C explains error messages. 

There are three other appendixes: 

• Appendix D contains helpful information for you to turn to 
if you find yourself stuck at any point. 

• Appendix E contains a number of additional programs for 
you to play with to gain more familiarity with BASIC. 

• Appendix F explains how to use a mouse with Applesoft 
BASIC. 

This tutorial is not a complete guide to Applesoft. To make 
things easier, information that a beginning programmer 
doesn’t need is sometimes left out. So don’t be surprised 
that there is more to learn— that’s the reason for the 
Applesoft BASIC Programmer’s Reference Manual. 

What the Tutorial Covers fxv" 
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Getting Ready 


Before you begin Chapter 1, get your machine and materials 
ready: 

• A video monitor and a disk drive should be connected to 
your computer. If you have a lie, your disk drive is built in 
and doesn’t need to be connected. The computer’s and 
the monitor’s power cords should be plugged into a 
grounded outlet. If you haven’t gotten this far, go back to 
the installation instructions that came with your computer. 

You can use a color television set as your video monitor by 
hooking it to your computer with a radio frequency (RF) 
modulator. Or, if you have a video cassette recorder 
(VCR), you can hook up your monitor cable to the video 
input connector instead of using an RF modulator. 



You can use an audio cassette recorder instead of a disk 
drive with your Apple lie. The special commands you’ll 
need are listed in the Applesoft BASIC Programmer’s 
Reference Manual. 


• Make sure you have the Applesoft Sampler (ProDOS 1.0 
Based) disk, and a formatted blank disk. Your utilities 
manual tells you how to format new disks to receive 
information. You’ll want to keep a formatted disk handy 
so you can save your programs as you work through the 
tutorial. 


Now is a good time to make a backup copy of the 
Applesoft Sampler disk, just in case you lose or damage 
the original disk. You can copy it by using your utilities 
disk. 


Overview: Learning to Program 



If a ProDOS User’s Manual and ProDOS User’s Disk came 
with your Disk II drive and controller card, use this utilities 
manual and disk to format a blank disk and back up your 
Applesoft Sampler disk. 

If you received a DOS 3.3 System Master disk and manual 
with your Disk II drive and controller card, do not use it to 
format and copy disks for use with this tutorial, since this 
tutorial is based on ProDOS. Instead, use the Filer on the 
Applesoft Sampler disk to format and copy disks. You will 
find complete instructions on how to do this in Appendix 
D under Using the Applesoft Sampler Filer. 



A System Utilities disk and utilities booklet came with 
your lie computer. Use this utilities booklet and disk to 
format a blank disk and back up your Applesoft Sampler 
disk. 


• Even if your computer is capable of displaying 80 
columns, keep your display set to 40 columns while you 
use this manual: it’s easier to learn Applesoft this way. 
Later on, you can write programs using the full 80 
columns. 


I Aids to Understanding 


Computer terms in this tutorial with which you may be 
/ unfamiliar are in italics. All italicized words are defined in the 
Glossary. 

Words that you should type when instructed to do so are in 
computer voice. 

Several special symbols are used as aids to understanding 
in this manual. 



The pause symbol marks points at which you can easily take 
a break. You don’t have to stop working when you see this 
symbol — it’s just a reminder that you can if you want to. 


Aids to Understanding 
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Gray Boxes: There are a few minor differences between 
the lie and the lie that affect the way you do the tutorial. 
Since this manual applies to both computers, differences 
are noted in gray boxes and marked with the Apple lie and 
Apple lie icons. Other differences are noted and marked 
with the two-drive icon for those with two disk drives. 

The gray box is also used to clarify information or to 
remind you about some useful technique. 


A, Warning 

The warning symbol lets you know when there is some vital 
piece of information that you shouldn’t miss. It also warns 
you when you must do something for your programs to work. 


Notes in the margin reinforce Screen boxes represent information as it will appear on the 
important information. computer’s display screen. Depending on what model of 

Apple II you are using, your screen may not look exactly like 
the screen details in this tutorial. 


I Where Else to Look 

Before you begin this manual, you should read your owner’s 
manual and run the introductory disk(s) that came with your 
computer. 

The companion to this manual is the Applesoft BASIC 
Programmer’s Reference Manual, Volumes I and II. The 
reference manual contains detailed and complete 
information about Applesoft, has a handy reference card, 
and discusses the design of programs and good 
programming practices. Use the reference manual to 
increase your programming knowledge and skill once you 
have learned the basics from the Applesoft Tutorial. 

Read the utilities manual that came with your computer or 
disk drive to learn how to format and copy disks. 

The BASIC Programming With ProDOS manual contains 
complete information about Professional Disk Operating 
System commands and how BASIC works with ProDOS. 
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This chapter puts you into the thick of the action right away. 
It shows you how to use some simple Applesoft BASIC 
statements for displaying information, calculating, and 
doing graphics. Ready? It’s time to get started! 


I Starting Up the ^Applesoft Sampler Disk 

Find the disk labeled Applesoft Sampler. Place it in the disk 
drive and close the drive door. Turn on your computer. When 
the disk drive’s red in-use light goes off, you should see the 
introductory Sampler display. Read the text displayed, and 
press (return) . You now see the Applesoft Sampler Disk 
Main Menu shown in Figure 1-1. 


Starting Up the Applesoft Sampler Disk 
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Figure 1-1. Applesoft Sampler Disk Main Menu 
The Applesoft Sampler Disk 


Main Menu 


1. Example Programs from The 
Applesoft Tutorial 

2. Tutorial Appendix E: More Programs 
To Play With 

3. Quit: Exit this program (This 
option will type CAT for you and 
will leave you in Applesoft 
BASIC.) 

Select option > _ 


To erase: use the DELETE key 
To select: type a number from 1 to 3 
To go to selected item: press RETURN 


If you don’t see the menu, check your system. Is the 
computer turned on? Is the video monitor plugged in and 
turned on? If you have an external disk drive, is it properly 
connected? If you need help, see your owner’s guide or 
installation instructions. 

The Applesoft Sampler disk contains programs you will work 
with in the course of this tutorial. The menu shows you the 
three main things you can do with this disk. You can 

1. Select from a list of sample programs; 

2. Choose to look at some sample programs discussed in 
Appendix E; 

3. Exit from the Applesoft Sampler and use BASIC. 
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Figure 1-2. The Cursor and the Type 3 to exit from the Main Menu and begin BASIC 
Prompt programming. 

1 JM The program automatically types CAT (for a catalog of the 

■* disk’s contents) and lists all the files on the disk. You now 

see a square bracket prompt (1) and a blinking 
checkerboard cursor at the left edge of your screen. 

Once you see a cursor on the screen, you are ready to begin 
entering BASIC commands. 


I A First Statement 

For your first BASIC statement, type PRINT "HELLO" and 
press (return) . 

Uppercase or Lowercase? Some models of the Apple 
computer accept BASIC statements in either uppercase 
or lowercase, while some models accept only uppercase 
BASIC statements. If you type your BASIC statements in 
lowercase and are rewarded with beeps and ? SYNTAX 
ERROR messages, press the (caps lock) key down. It is 
located at the lower-left corner of the keyboard. When the 
key is locked into position, you should hear a click and 
notice that it is lower than the other keys. 

The (caps lock) key makes all letters uppercase, but also 
allows you to type numbers. If you want the uppercase 
character of a nonalphabetic key, you still must use the 
(shift) key. For example, you use the (shift) key to get the 
double quotation mark. 

The Apple should carry out your instructions by displaying 
the word 

HELLO 

on the next line. If it followed your instructions, 
congratulations! 


When you give instructions like 
this to the Apple, you should 
type exactly what you see in this 
manual, including spaces, 
uppercase letters, and 
quotation marks. 
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Figure 1-3. The PRINT Statement 


PRINT 
"HELLO" is 
the Applesoft 

statement 

PR I NT is the 
Applesoft 

keyword 

The letters 
between the 
quotation marks 
are what you are 
instructing the 
Apple to print 
(display on the 
screen) _ 

HELLO is “ 
displayed when 
you press 
(RETURN) , and 
the cursor moves 
to the line 
following the 
display _ 

Prompt 


] PR I NT "HELLO” 


HELLO 


Fixing Mistakes 

If your screen doesn’t look like the one in Figure 1-3, no 
problem. Look at your screen and carefully compare it with 
the following examples. Below each example is a hint about 
what to do to make it work right. 

Iprint "hello" 

?SYNTAX ERROR 

Does your computer require you to use uppercase letters? If 
so, press (caps lock) and try again. 

IPRINT "HELL0"& 


"el 
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Is the cursor blinking next to the second quotation mark? If 
so, press (return) . (Every instruction must be followed by a 
(return) to tell the Apple that you have completed the 
instruction.) 

] PR I NT HELLO 


Are there quotation marks surrounding HELLO? If not, type 
the instruction again. If you used the single quotation mark, 
be sure to hold (shift) down to produce the double 
quotation mark. 

If you forget the first quotation mark, the computer prints a 0 
right below your instruction. 

] PR I MT "HELLO" 

7SYNTAX ERROR 

Is PR I NT spelled correctly? If not, try again. 

] PR I NT "HELLO" 

HELLO 

Now you’ve got it right! 

When you misspell a keyword (like the word PRINT) in a 
statement (PRINT “HELLO” is a statement), you get this 
error message: 

7SYNTAX ERROR 

If you don’t notice a misspelling until you see this error 
message, all you need to do is type the statement again. 
Check to make sure it is correct before you press (return) . 

If you notice a mistake before you have pressed (return) , 
you can fix it without having to retype the whole line. Press 
0 until the cursor is over the mistake. Type the correction. 
Then press Q until the cursor reaches the end of the line. 
Press (RETURN) . 
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A Word to the Wise: Nobody’s perfect. Unless you are 
familiar with a computer keyboard, it will probably take a 
while for your fingers to find the right keys every time. But 
all it takes is a little practice, so keep trying! You’ll find 
that once you get used to the arrow keys, fixing mistakes 
won’t take long. And soon you will realize that checking 
each line before you press (return) makes life much 
easier. 

Now type the next statement, filling in your name in place of 
the blank. And don’t forget to press (return) . 

PRINT "HI, MY NAME IS 

Did it work? If not, don’t despair. The computer doesn’t blow 
up when you don’t do things exactly right. It just waits until 
you give it an instruction it recognizes. Unlike a person, a 
computer cannot figure out what you mean; it only responds 
to certain words in a certain order. So check what you typed, 
and try again. 


Exploring the Limits of PRINT 

Now type 

PRINT is the primary Applesoft PRINT "THE SKY IS RED, THE GRASS IS BLUE" 
statement used to display 

information on the screen. The Apple displays exactly what you told it to. Even if it’s not 

true! 

When you tell the Apple to PRINT something in quotation 
marks, you instruct it to display all the characters between 
the quotation marks on the display screen. You can use the 
PRINT statement to tell the computer to display any 
message you wish. Try it! 

Character Limit: If you type much beyond 240 characters 
at once, the computer beeps and produces a backward 
slash when it reaches the character limit. Then you have to 
start over again. Figure 1-4 illustrates the character limit. 
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Figure 1-4. The Screen Character Limit 


The length of a line on the 
screen is 40 characters. It takes 
6 1/2 screen lines to reach the 
character limit of an Applesoft 
line. 


] PR I NT "THE PURPLE SPOTTED COW JUMPED 0V 
ER THE BRIGHT PINK MOON WHILE SUSAN ATE 
CHOCOLATE CHIP COOKIES AND THOUGHT ABOUT 
HER FUTURE. THE PURPLE SPOTTED CON JUMP 
ED OVER THE FENCE TO JOIN HER FRIENDS NH 
0 HAD TOLD HER THAT THE GRASS NAS A NHOL 
E LOT GREENER ON \ 


When you want your computer to PRINT characters, you 
must use quotation marks. But if you type 

PRINT 150 

the computer prints the number 150 on the next line without 
any error message about the missing quotation marks. Type 

PRINT "150" 

and it does the same thing. This only works with numbers. If 
you try typing 

PRINT HELLO 

all you’ll get is a 0. 
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The Difference Between Characters and Numbers Is 
Important: The difference between characters and 
numbers that you’ve just seen in relation to the PRINT 
statement is very important. This difference will become 
clearer when you read the section on Doing Calculations. 


I Unanswered Questions 

Many times you’ll have questions about Applesoft BASIC 
that are not answered directly in this book. For instance, in 
the statement 

PRINT "HELLO" 

do you have to put a space after PRINT? 

Usually a simple experiment will answer your question. Type 
PR I NT"HELL0" 

and see what happens. When you take the time to try it 
yourself, you remember what you learn better than if you 
merely read about it. 

When trial and error doesn’t work, see this manual’s 
appendixes and the Applesoft BASIC Programmer’s 
Reference Manual. 

Turning Your Apple Off or Leaving It On: The Apple uses 
less electricity than an 11-watt light bulb. Whenever you 
take a short break, leave the computer turned on. You 
should, however, turn the monitor off, since it uses much 
more energy than the computer. 

If you turn the computer off at one of the pause marks, be 
sure to restart it with the Applesoft Sampler disk. Then 
choose item 3 from the Main Menu as you did at the 
beginning of this chapter. 

Pause 
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I FancyPrinting 


The INVERSE statement sets 
the video mode so that 
characters are displayed as 
dark letters on a light 
background. 


NORMAL sets the video mode 
to the usual light letters on a 
dark background. 


HOME moves the cursor to the 
upper-left corner of the text 
window and clears the screen. 


Now that you’ve been introduced to the PRINT statement, 
how would you like to try another? Type 

INVERSE 

and press (return) . Notice that the prompt looks different: it 
is dark on a light background. To see what INVERSE does, 
type 

PRINT "HELLO, HI, BONJOUR, BUENOS DIAS" 

Isn’t that nice? Try some more PRINT instructions of your 
own. Notice that you don’t have to type INVERSE with each 
statement. Once you instruct the Apple to use dark-on-light, 
it will do so until you tell it to stop. To do that, type 

NORMAL 

and press (return) . Any instructions that follow will be light- 
on-dark. 

Another statement you can use whenever you want to clear 
your screen and move the cursor to the upper-left corner of 
the screen is 

HOME 

Try it. Then type a few PRINT statements and try HOME 
again. A cleared screen is at your command. 

Here is another experiment. Don’t forget to press (return) 
after typing each statement. Type 

INVERSE 

HOME 

PRINT "NOW THE SCREEN IS CLEARED AND THE 
WORDS APPEAR DARK-ON-L IGHT" 

Try a few more PRINT instructions and see what happens. 
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Doing Calculations 


Without further study, you can use the Apple as an ordinary 
calculator. 


Try typing this: 
PRINT 3+4 


The answer, 7, appears on the next line (unless you forgot to 
press ( return | l). 


Arithmetic Operations 

The Apple can do five different elementary 
arithmetic operations: 

1. Addition is indicated by the usual plus sign (+). 

2. Subtraction uses the conventional minus sign (-). To try 
subtraction, type 

PRINT 1086-99 

3. Multiplication is indicated with an asterisk (*). (If an x 
was used for multiplication, it could be confused with the 
letter x). To find 7 times 8 (in case you don’t remember 
the answer), just type 

PRINT 7*8 

and have your memory jogged. 

4. Division is indicated by a slash (/). To divide 63 by 7, type 
PRINT 63/7 

and the correct answer appears. 

Try dividing 3 by 2. The Apple gives the answer to you in 
the decimal form: 1 . 5. 
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5. Exponentiation is indicated by a caret (~). It is often 
handy to multiply a number by itself a given number of 
times. Instead of writing 

PRINT 4*4*4*4*4 

you can substitute the shorthand 

PRINT 4 ' 5 

To type the caret (sometimes called a circumflex or an 
upward pointing arrow), hold down (shift) and type G. 

There is nothing special about exponentiation. It is just an 
abbreviation for repeated multiplication. In noncomputer 
notation, the above example is referred to as four to the 
fifth power and is written like this: 

5 

4 

You can combine several of these arithmetic operations 
within the same statement. For example, you can instruct the 
Apple to 

PRINT 3 + 51 + 9 + 400 
or 


PRINT 3+5 

/ 

9 * 4 ' 2 - 1 

IPRINT 3 + 

51 

+ 9 + 400 

463 



IPRINT 3 + 

5 

/ 9 * 4 * 2 - 1 

1 0 .8888889 




The exact rules for such usage are given later in the chapter, 
but you can experiment now if you wish. 

To Quote or Not to Quote: Applesoft only does arithmetic 
operations on numbers that are not enclosed in quotation 
marks. If you tell your Apple to PR I NT "5 + 4" , it will print 
5 + 4 instead of performing the operation. 
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Leading and Trailing Zeros 

When you type 

PRINT 45.340 

your computer responds with 

45.34 

and doesn’t display the trailing zero. The Apple does not 
display leading or trailing zeros, that is, zeros that are at the 
beginning of a number and to the left of the decimal or zeros 
that are at the end of a number and to the right of the 
decimal. 


Rounding Numbers 

Very, very small numbers (between about 
.000000000000000000000000000000000000003 and 
-.000000000000000000000000000000000000003) will be 
converted to zero by the Apple. Don’t take our word for it. 
Try it yourself. An easier way to write these numbers is 

PRINT 3 * 10' - 39 

and 

PRINT -3 * 10' - 39 
Now type 

PRINT 985788.6898 

Surprise! The last two digits are lost, and the number left 
behind is the closest approximation the computer can find. 
This process is called rounding. Try typing 

PRINT 788.6898 

The Apple does not round the number, but displays it just 
the way you typed it. Madness, you say? Ah, but there is a 
method to this seeming madness. Numbers are rounded 
only if they have more than nine digits. Any number that has 
fewer than ten digits is not rounded. Applesoft does the best 
it can, but it can only work with nine digits. 
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Scientific Notation 

If you type a PRINT statement with a large number like 

PRINT 

1234567890 

the Apple responds with 

1 . 23456789E + 09 

If you PRINT the number 10 billion (which has ten zeros), the 
Apple responds with 

1 E + 1 0 

The numbers 10000000000 and 1E+10, and the numbers 
1234567890 and 1.23456789E+09 have the same value. 
Really. The number displayed by your computer is in a form 
called scientific notation. If you need numbers like this you 
probably know how to read them. The Applesoft BASIC 
Programmer’s Reference Manual has more information if 
you are curious about this notation. 

What About the RETURN Key ? 

So far, you have been pressing the (return) key after every 
line. You might like to know why this key gets so overworked. 
The reason is simple: without the (return) , the computer 
does not know when you have completed an instruction. For 
example, if you typed 

PRINT 4+5 

and the computer immediately answered with a 9, you might 
be upset because you had planned to type 

PRINT 4 + 5 + 346 

which nets a different answer entirely. Since the computer 
can’t tell when you have finished typing an instruction, you 
must tell it. You do this by pressing the (return) key. 


What About the RETURN Key? 
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Warning 

Now that you know that you always have to press (return) 
after typing an instruction, we’ll stop reminding you. 
Pressing (return) after each instruction is probably a habit 
for you by now anyway if you have been doing all the 

examples. 


© Pause 

I A Graphic Change of Pace 

So far, you have been playing with words and numbers in 
Applesoft. Now it’s time for a change of pace. Read on, and 
you’ll discover some of the wonderful graphics capabilities 
of your Apple computer. 


Preparing the Screen 

To prepare the screen for drawing, type 
GR 


When you type GR, short for graphics, you’ll notice that a 
design quickly flashes past, the screen clears, and the cursor 
moves to the bottom of the screen. (If your screen didn’t 
clear, you probably forgot to press (return) . And forgot that 
we won’t remind you anymore.) 


The GR statement sets the stage 
for low-resolution graphics by 
clearing the screen, setting the 
color to black, and leaving a 
four-line text window at the 
bottom of the screen. 


The GR statement instructs the computer to set up an 
invisible grid of 40 vertical columns and 40 horizontal rows 
on which you can draw. This is called the low-resolution 
graphics mode. The GR statement also instructs the 
computer to leave enough space at the bottom of the screen 
for four lines of text, called the text window. GR also clears 
the screen, and sets the color to black. 
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Plotting Color Bricks 

The GR statement sets the stage for doing all kinds of 
drawing and fancy visual work. However, before you can see 
the results of what you do on the screen, you have to tell the 
computer to use a color that will show up on the black 
background. Try this now, by typing these two instructions: 

To set the color in low- 
resolution graphics use the 
statement COLOR = , followed 
by an integer from 0 to 15. The 
PLOT statement places a 
“brick” at the specified 
location. 


If Nothing Appears: If nothing appears on your screen, 
chances are you forgot to specify a color. You must do 
this, no matter what kind of display device you are using. 

The PLOT statement tells the computer where to put each 
brick of color by assigning two numbers on the invisible grid 
The first number in the three PLOT statements you have 
used so far, 20, names the 20th vertical column out of 40. 
The vertical column number is always the first in a PLOT 
statement. The second number (you have used 20, 22, and 
24) names the horizontal row. 


COLOR = 15 
PLOT 20,20 

Do you see the white brick (a small rectangle) in the middle 
of your screen? To place two more bricks along the same 
vertical line, type 

PLOT 20,22 
PLOT 20,24 
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Figure 1-5. Using PLOT Statements 


Vertical column number 

Horizontal row number - 


] PLOT 20,24 

I 

m 


Now try plotting some bricks on your own. Can you put some 
in the leftmost vertical column? (Hint: the first number after 
PLOT should be 0, although 1 also will work.) What about 
the vertical column on the far right? (Hint: the first number 
after PLOT should be 39.) 
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Figure 1-6. Low-Resolution Graphics Screen Grid 



In low-resolution graphics, the 
horizontal coordinates range 
from 0 to 39; the vertical 
coordinates range from 0 to 39 
also. 


Notice in Figure 1-6 that the numbering system for the 
vertical columns goes from 0 to 39, left to right. The 
numbers for the horizontal rows also go from 0 to 39, 
beginning at the top of the screen and moving down. This 
book refers to the coordinates as columns and rows. Since 
the screen is already divided into 40 vertical columns and 40 
horizontal rows, all you have to do is name the coordinate 
points that go with each PLOT. 

The color of the bricks you are plotting is determined by the 
COLOR =statement. The Apple will keep using whatever 
color you assign until you instruct it to change to another 
color. Try that now, with 

COLOR = 5 


Notice that nothing new has happened on your screen yet. 
You have to tell the Apple where to put each brick, so type 

PLOT 20,21 


RsT 
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And what happens? A brick of a different shade should 
appear in the same vertical column you have been using, but 
in a different row. Try 

PLOT 20,23 
PLOT 20,0 

You should see two more bricks in the same column. 


Colors and Numbers 

So far, if you have been trying these exercises, you have 
produced two shades of bricks on your screen. How does 
this work? 

There are sixteen numbers assigned to COLOR= in 
Applesoft. Look at Figure 1-7 to see which number goes with 
which color on a color video monitor. 


0 black 

1 magenta 

2 dark blue 

3 purple 

4 dark green 

5 gray 

6 medium blue 

7 light blue 

8 brown 

9 orange 

10 gray 

11 pink 

12 green 

13 yellow 

14 aqua 

15 white 


Figure 1-7. Low-Resolution Graphics Colors and Numbers 
on a Color Monitor 
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All of the graphics examples in this manual work well in 
color. If you are using a black-and-white or a green- 
phosphor monitor, the sixteen colors appear as shades of 
gray or green and fall into five color groupings, as shown in 
Figure 1-8. For good contrast on a black-and-white or 
green-phosphor monitor, use a number from each group in 
consecutive COLOR= statements. You can use all of the 
sixteen color numbers, and you should feel free to 
experiment with them. 


Dark gray or green: 1, 2, 4, 8 
Medium gray or green: 5, 10 
Light gray or green: 3, 6, 9, 12 
Pale gray or green: 7, 11, 13, 14 
White or green: 15 


Figure 1-8. Low-Resolution Graphics Shades and Numbers 
on a Black-and-White or Green-Phosphor Monitor 
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To see why COLOR = numbers 1, 2, 4, and 8 are grouped 
together, experiment by plotting bricks of those colors near 
each other. On a black-and-white or green-phosphor 
monitor, you can’t tell much difference between them. On a 
color monitor, of course, they are distinct colors (magenta, 
dark blue, dark green, and brown). Now try 

COLOR = 0 
PLOT 22,27 

Nothing happens, right? Take a look at Figure 1-7 to see 
why. The same thing happens whenever you give the GR 
statement without indicating a color. This is because 
COLOR= is initially set to 0, or black. Remember? 

Now try some more COLOR = and PLOT statements, like 

COLOR = 3 
PLOT 21,0 
PLOT 21,20 

COLOR = 1 
PLOT 22,22 
PLOT 22,25 
PLOT 22,26 

Keep practicing until you get the hang of it. 

When you are doing graphics, 

HOME only clears the text 
window. GR must be used to 
clear the graphics portion of the 
screen. 


When you want to clear your screen and do some new PLOT 
statements, type 

GR 
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PLOT Error Messages 

There are two error messages that often turn up when you 
are using the PLOT statement. You probably already know 
that if you type 

PLAT 10,10 

or 

PLOP 10,10 
instead of 
PLOT 10,10 
you get the message 
?SYNTAX ERROR 

A different error message occurs when you use a number 
larger or smaller than those permitted for coordinates in a 
PLOT statement. Type 

PLOT 13,85 

and you get the message 

? I LLEGAL QUANTITY ERROR 

This message means that you have tried to plot a point out of 
range and off the screen. The highest number you should try 
to use in a PLOT statement is 39 because the coordinates 
range from 0 to 39. 

Aside: There are, in fact, some ways to plot row numbers 
larger than 39. They are discussed in the Applesoft BASIC 
Programmer’s Reference Manual. 

Trying to use negative values in a PLOT statement is another 
way to get the 

? I LLEGAL QUANTITY ERROR 
message. 

Pause 
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Drawing Lines 

Prepare your screen for some new graphics by typing 
GR 

COLOR = 1 

You must have discovered by now that it takes a lot of 
instructions to plot a line on the screen. It would, for 
example, take 40 statements to draw a horizontal line all the 
way across the middle of the screen: 

PLOT 0,20 
PLOT 1,20 
PLOT 2,20 

and so on, until 

PLOT 39,20 

However, there is an easier way to make horizontal lines. 
Just type 

The H LIN statement is used to HLIN 0,39 AT 20 
draw horizontal lines in low- 

resolution graphics, in the color And there you have it: an instant horizontal line from column 

indicated by the last COLOR = o to column 39 at row 20. 

statement. 

To draw a contrasting horizontal line just below the first, 
type 

COLOR = 7 
HLIN 0,39 AT 21 
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Figure 1-9. The HUN Statement 




Row number 

Right column number — 

Left column number 1 

] HL I N 0,39 AT 21 

m 


Now figure out how to draw a third contrasting line at 
row 22. This time, however, have it run from column 10 to 
column 30. 

To understand the HLIN statement, look carefully at the 
order of the numbers after HLIN. The syntax, or rules for 
writing the statement, require the use of three numbers in a 
certain order: left column number, then right column 
number, then row number. To get your third contrasting line, 
for example, you write this statement: 

HLIN 10,30 AT 22 


A Graphic Change of Pace 
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To see how PLOT and HLIN can be used together, try the 
following: 

COLOR = 8 
HLIN 29,39 AT 35 
HLIN 29,39 AT 37 
COLOR = 10 
PLOT 29,36 
PLOT 39,36 

There is a statement for vertical lines similar to that for 
horizontal lines. To draw another, larger, rectangular box, 
type 

COLOR = 15 


In low-resolution graphics, VLIN 

VL 

IN 

0 . 

,20 

AT 

0 

draws a vertical line in the 

VL 

IN 

0 , 

,20 

AT 

15 

color indicated by the most 
recent COLOR= statement. 

COLOR 


= 5 




HL 

IN 

0 ; 

,15 

AT 

0 


HL 

IN 

1 , 

, 14 

AT 

20 


Notice that when the first horizontal line is drawn over the 
ends of the vertical lines, the new color takes over, and the 
old color disappears. Practice making more vertical lines. 
Then, to clear the screen, use the GR statement. 

Now test your proficiency with horizontal and vertical lines 
by drawing a border around the screen in five statements. 
Put a cross on the screen. Play with PLOT, HLIN, and VLIN 
until you can put lines exactly where you want them. 

Now, here’s a test. Look at Figure 1-10. Determine how to 
give one HLIN and three VLIN instructions to write Hi on 
your screen. Start with 

COLOR = 3 
VLIN 5,25 AT 10 

and figure out the rest. Then dot the i with a PLOT 
statement. If you like, add an exclamation point at column 28 
(just for show). 
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Figure 1-10. Try Drawing This 


iiii 


! 

1 


] PLOT 25 ,5 

m 


The TEXT statement sets the 
screen to the nongraphics text 
mode: 40 characters per line 
and 24 lines per screen. When 
you use it to leave the graphics 
mode, it is best to follow it with 
the HOME statement. 


When you are finished with graphics, the TEXT statement 
returns the computer to text mode so you can use the full 
screen to work with programs. When you type 

TEXT 

you see a screenful of funny symbols. The technical term for 
this is garbage. It is just an indication that Applesoft is 
switching modes from graphics to text. To remove the 
garbage from your screen, follow the TEXT statement with 
HOME. As you already know, HOME clears text from the 
screen. 


Since you are leaving the graphics mode for a while, make 
sure you return the Apple to text mode before you continue. 

Pause 


A Graphic Change of Pace 
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I Using Variables 


In the main memory of your computer are a large number of 
special storage spaces. In each one of these spaces you can 
store a number, the result of a computation, words, or a 
group of characters. It’s a bit like saving a number for later 
use on a simple calculator. 


A variable is a symbol that 
represents a location in 
memory. You can think of it as a 
place where one value, such as 
77, is stored. 


Usually you do this on the calculator by pressing a memory 
key. On the Apple, because it has many more storage spaces 
than a calculator, you give a name to each space. This name 
is called a variable. 


Say you want to save the number 77. If you wanted to name 
the storage space A, you would instruct the Apple to 


The LET statement is used to LET A = 77 
define a variable. 

The number, or value, 77, is not printed. It is stored in the 
space you have called A. If you now type 

PRINT A 


the computer prints the value of the variable A, which is 77. 
Try typing the two statements. 

Helpful Hint: If the statement LET A = 77 has disappeared 
from your screen, you forgot to leave the graphics mode 
by typing TEXT. If you have a lot of garbage on your 
screen, you forgot to clear the screen with HOME. 

Figure 1-11. Defining a Variable With LET 

Variable 1 

LET A = 77 

Value 1 
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Variable Names 


Whenever you assign a new 
value to a variable, the old value 
is erased from memory. 


A variable can have almost any name, so long as it starts 
with a letter. For example, try typing these statements: 

LET A = 77 
LET RED3 = 77 
LET CLOTHING = 77 

Each of these variables represents a different location in 
memory. They ail store the same value, 77. Now type 

LET CLOTHING = 100 
PRINT CLOTHING 

You get 100, right? The 77 is gone, and you have assigned a 
new value to CLOTHING. 

However, the variables A and RED3 still store the value of 77. 
Try typing 

PRINT RED3 

to verify this. Is the same true for variable A? 

When naming a variable, the word LET is optional. In other 
words, the statements 

LET A = 45 

and 

A = 45 

give the same result. Try typing these statements and 
printing their values to see that this is true. Sometimes it is 
easier to recognize a variable, when you are first learning 
Applesoft, if it is preceded by LET. But it’s your choice. 
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You may find that it is easier on your fingers to use brief 
names for variables. You’ll also discover that some names 
are not allowed because they include a word that has a 
special meaning in Applesoft. These are known as 
reserved words. One of these words is COLOR. Thus a 
variable’s name must not have the word COLOR in it. Try 
typing 

THISCOLOR = 6 


or 

COLORFUL = 9 


A list of reserved words that 
cannot be used as variables or 
as parts of variables can be 
found in Appendix B. There is 
also a good deal more 
information on variables in the 
Applesoft BASIC Programmer’s 
Reference Manual. 


All you get is the 7SYNTAX ERROR message, which means 
you have unwittingly included a reserved word in the name. 
Don’t worry. Just choose another name. In this case, a 
change to the British spelling will solve the problem and still 
give you a meaningful variable name: COLOURFUL. 

Applesoft uses only the first two characters of a variable 
name to distinguish one variable from another. 


To see how this works, try typing 


BIRD = 11 
PRINT BIRD 


Did you get what you expected? Now type 
PRINT BITE 


What happens? Try 
PRINT BILLOW 


All these names begin with Bl. So BIRD, BITE, and BILLOW 
are all considered by Applesoft to be the same variable. 
Keep this in mind the next time you need to invent variable 
names. 
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Whenever you omit quotation 
marks in a PRINT statement, 
Applesoft treats the word or 
letter like a variable and tries 
print the value of the word or 
letter. 


Printing Variable Values 

There is a big difference between the way Applesoft 
interprets 

PRINT COW 

and 

PRINT "COW" 

What happens when you try them? 

It is just like the difference between these two sentences: 
Mice have four feet. 

“Mice” has four letters. 

The first sentence refers to little furry creatures with long 
tails. The second sentence refers to the word itself. This is 
how quotation marks are used in Applesoft. When you type 

PRINT "COW" 

you are instructing the computer to print the word. When 
you type 

PRINT COW 

you want the Apple to print the value the word stands for. 
to This distinction is important to remember when you start 
using variables in Applesoft. 
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Using Variables 


In a LET statement, Applesoft 
takes everything to the right of 
the equal sign (=), figures it out, 
and stores the result in the 
variable on the left of the sign. 


Computation With Variables 

So far, you have only used variables to store a single 
number. You also can store the result of a computation in a 
variable. Type 

A = 4 + 5 
PRINT A 

The value of A is 9, right? Now you can use the value of A in 
further computations. For example, try this on your 
computer: 

PRINT A + 2 

Is the answer what you expected? Try some other 
calculations using A. 

Now let’s say FOOD has the value of 28, and you want to 
increase this value by 5. If you type 

FOOD = 28 
PRINT FOOD 
PRINT FOOD + 5 

you get a result of 33. But when you 

PRINT FOOD 

again, Applesoft gives you the original value of the variable 
FOOD. The way to increase the value of the variable in 
memory is to type 

FOOD = FOOD + 5 
PRINT FOOD 

The statement FOOD = FOOD + 5 may seem irrational until 
you recall that you have left out the assumed LET, and so 
what you really are saying is, “Let FOOD now equal what 
FOOD equaled up until now plus 5.” In this context, the 
equal sign means “is assigned the value.” 
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So FOOD has a new value — until you assign another value to 
it. Try that now. Type the statements below in order: 

FOOD = 2 
PRINT FOOD 
FOOD = FOOD + 3 

PRINT FOOD 
FOOD = FOOD * G 

PRINT FOOD 
FOOD = FOOD / 10 

PRINT FOOD 

At the end of this sequence of statements, you should have 
the value 3. Is this correct? Is this what you expected? 

The Apple is able to store each new value of the variable 
(FOOD) as it is assigned or computed. You don’t have to 
PRINT FOOD each time for that to happen. Just to make 
sure, try it now. 

FOOD = 2 

FOOD = FOOD + 3 

FOOD = FOOD * 6 

FOOD = FOOD / 10 

PRINT FOOD 

Look at the sequence below. What answer do you expect? 
Try it. 

MANGOES = 55 
BANANAS = 11 

QUOTIENT = MANGOES/ BANANAS 
PRINT QUOTIENT 

You see from this example that once you have stored several 
variables in the Apple, you can do computations using the 
variable names. Mangoes can’t actually be divided by 
bananas, but Applesoft recognizes the words as variable 
names and uses their values in the division. 

This section has explained how to store numbers and the 
results of computations in variables. As we mentioned 
earlier, it is also possible to store words and groups of 
characters in variables. Chapter 5 will return to this subject. 


Using Variables 
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Summary: About Variables 

• A variable is a symbol that represents a location in 
memory. 

• The LET statement is used to define a variable. 

• LET is optional: LET A = 23 and A = 23 give the same 
result. 

• In a LET statement, Applesoft takes everything to the right 
of the equal sign, figures it out, and stores the result in the 
variable on the left of the sign. 

• A variable name must begin with a letter. It is a good idea 
to give meaningful names to your variables for easier 
identification. 

• Applesoft uses only the first two characters of a variable 
name to distinguish one variable from another. So if the 
first two letters of different variable names are the same, 
Applesoft considers them to be one and the same 
variable. 

• All Applesoft keywords and some other words are 
reserved and cannot be used as variable names. 

© Pause 

I A Big Timesaver 

You may have noticed by now that the PRINT statement is 
used a lot in Applesoft. 

To save time, you can use a question mark in place of PRINT. 
In fact, ? and PRINT mean the same thing in Applesoft. Try it 
out now, by typing 

?"W0W ! " 


34l 


Chapter 1: Introducing Applesoft 


Precedence in Computations 


Now that you are using the Apple for computations, you 
need to know what order, or precedence, Applesoft follows 
in carrying out your instructions. In a calculation like 

PRINT 4+8/2 

will the answer be 6 or 8? It depends on which computation 
Applesoft does first. If Applesoft adds 4 to 8, then divides 12 
by 2, the result is 6. If Applesoft divides 8 by 2, then adds 4, 
the result is 8. In this example, Applesoft does the division 
first. The computation thus becomes 4 + 4, and then 
Applesoft does the addition. 


First to Last , Left to Right 

Applesoft uses these rules of precedence: 

1. When the minus sign is used to indicate a negative 
number, it is called a unary minus sign. In the example 

PRINT -3+2 

Applesoft first applies the unary minus sign to its 
appropriate number or variable before doing any 
arithmetic operations. Thus -3 + 2 comes out to -1. If 
Applesoft did the addition first, -3 + 2 would evaluate to 
-5. But it doesn’t. (Notice that in the arithmetic 
expression 5-3 the minus sign is indicating subtraction, 
not a negative number.) 

Another example is 

SUSAN = 6 

PRINT -SUSAN + 10 

The answer is 4. 
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2. After identifying all negative numbers, Applesoft 
calculates exponentiation. It works out the statement 

PRINT 4+3-2 

by multiplying 3 by itself (3*3 = 9) and then adding 4 
for a grand total of 13. When there are a number of 
exponentiations, they are done from left to right, so that 
Applesoft calculates 

PRINT 2*3-2 

by multiplying 2 by itself three times (2 * 2 * 2), which is 8, 
and then multiplying that by itself (8 * 8). The answer is 64. 

3. After Applesoft has calculated all exponentiation, it does 
all multiplication and division, from left to right. 

4. Then Applesoft does all additions and subtractions from 
left to right. 

Calculation From Left to Right: Arithmetic operations of 
equal precedence are always calculated from left to right. 
Multiplication (*) and division (/) have equal precedence. 

So do addition (+) and subtraction (-). 

Don’t worry: you don’t have to memorize the order of 
precedence to use the computer. You can always refer to 
Table 1-1 when you need to know. 


Table 1-1. Applesoft’s Order of Precedence 
for Carrying Out Arithmetic Operations 


Order 

Sign 

Operation 

First 

- 

Assignment of unary minus sign to appropriate 
number 

Second 


Exponentiation, from left to right 

Third 

* / 

Multiplication and division, from left to right 

Fourth 

+ - 

Addition and subtraction, from left to right 
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Some arithmetic expressions to calculate follow. With each 
one, first do it yourself and then try it on your Apple. If your 
answer is different from the computer’s, try to find out why. 

Remember to preface each computation with ? or PRINT. 
Unless you already understand the way computers work out 
expressions, you should do these examples one at a time, 
checking your answer against the computer’s as you go. 

PRINT 4 + 6 - 2 ♦ 1 

PRINT 5-4/2 

PRINT 20 / 2 * 5 

PRINT 6* -2 +6/3+8 

PRINT 2 ~ 2 ' 3 + 2*3 

PRINT 8*2/2+3* 2*2 * 1 

We don’t give you the answers here, because the Apple will 
give you the correct answers. If you like doing these, try 
some of your own. If not, keep going! 


Using Parentheses 

Now, suppose you want to divide 12 by the result of 4 + 2. If 
you type 

PRINT 12/4+2 

you get the answer 5. But this is not what you meant. To 
accomplish what you meant in the first place, you can use 
parentheses to modify the precedence. Type 

PRINT 12 / (4 + 2) 

The rule Applesoft follows in this case is simple: it does what 
is in parentheses first. If there are parentheses within 
parentheses, Applesoft does what is in the innermost 
parentheses first. Here is an example: 

PRINT 12 / (3 + (1 + 2) '2) 
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In this case, doing what is in the innermost parentheses, 
Applesoft first adds 1 + 2. Now the expression is 12 / (3 + 3 
"2). Then Applesoft follows the rules of precedence to 
determine that 3 + 3" 2 is 3 + 9, or 12, and that 12 / 12 is 1. 

In a case like (9 + 4) * (1 + 2), where there is more than one 
set of parentheses, Applesoft does the operations within 
each set starting at the left and working to the right. This 
expression becomes 13 * 3, or 39. 

Here are some more expressions to work out. Remember 
that you can substitute a question mark (?) for PRINT. 

PRINT (44 / 2> + 2 

PRINT 100 / (200 / (1 * (9 - 5))) 

PRINT 32 / (1 + (7 / 3) + (5 / 4)) 

Incidentally, most of these rules for precedence and 
parentheses hold good for most computer systems 
anywhere in the world, not just for Apple computers. 

Pause 
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Chapter Summary 


Here is a summary of what you have learned in this chapter. 
Impressive, isn’t it? Items within each category are listed in 
the order in which they appear in the chapter. Definitions of 
statements can be found in Appendix A. Glossary terms are 
defined in the Glossary. 


Applesoft Arithmetic Glossary 

Statements Operations Terms 


PRINT 

INVERSE 

NORMAL 

HOME 

GR 

COLOR= 

PLOT 

HLIN 

VLIN 

TEXT 

LET 

Keys 

(CAPS LOCK) 

(SHIFT) 

(RETURN) 

0 

0 


addition 

subtraction 

multiplication 

division 

exponentiation 

Error Messages 

7SYNTAX ERROR 
7ILLEGAL 
QUANTITY ERROR 


prompt 
cusor 
keyword 
statement 
character 
character limit 
arithmetic 
operations 
scientific notation 
low-resolution 
graphics 
text window 
syntax 

main memory 

variable 

value 

reserved word 
precedence 
unary operator 
arithmetic 
expression 
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Elementary Programming 
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DO 


Now that you’ve gotten your feet wet and have a few simple 
BASIC statements under your belt, you’re ready to move 
ahead. In this chapter, you write your first program, and 
learn some more elementary Applesoft BASIC statements. 


I Deferred Execution 

When a computer performs according to the instructions 
you have given it, it executes the statement. Up to now, when 
you typed 

PRINT 3+4 

and pressed (return) , the Apple did what you told it to do, 
immediately. This is called immediate execution. You can try 
out nearly every Applesoft statement in immediate 
execution. 

But what if you want to produce some computer magic for 
your friends without typing while they watch? Or you want to 
write some instructions, take a break, and return later to 
add some more? To do these things, you need to be able to 
store the statements for execution at a later time. This is 
called deferred execution. 


Deferred Execution 
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The NEW statement clears the 
temporary memory in the 
computer and should be used 
each time you begin a new 
program. 


The LIST statement displays the 
program lines stored in the 
computer’s memory. 


The RUN statement causes the 
computer to execute, or carry 
out, whatever instructions are 
contained in the program lines 
in memory. 
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To make sure that the computer’s memory is cleared, type 
NEW 

Now type the following line: 

100 PRINT "MY FAVORITE FOOD IS ARTICHOKES" 

When you press (return) , nothing appears on the screen. If 
you press (return) again, the cursor moves down the 
screen — but your statement still hasn’t been executed. 

] NEW 

1100 PRINT "MY FAVORITE FOOD IS ARTICHOKES" 
] 

] 

m 

The key to this response is simple: when you typed 1 0 0 you 
gave the statement a line number, indicating that you want 
the computer to defer execution. The Apple holds line 100 in 
its memory, temporarily, until you instruct it not to. (If, for 
example, you turn off the computer, line 100 is lost.) 

Of course, you probably don’t want to defer execution of 
that line forever. And you may be wondering how you can be 
sure about this temporary storage business. To find out what 
is being held in the Apple’s memory, type 

LIST 

and, unless you mistyped something, 

] L I ST 

100 PRINT "MY FAVORITE FOOD IS ARTICHOKES" 
appears on the screen. 

The LIST statement instructs the computer to display 
whatever numbered lines are in its memory. To instruct the 
computer to execute line 100, type 

RUN 

and the sentence 

MY FAVORITE FOOD IS ARTICHOKES 
should appear on your screen. 
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Look carefully at the difference between the line when it is 
listed and when it is executed, or run. You’ll notice that the 
line number, 100, has disappeared along with PRINT. As you 
recall, the PRINT statement is used to display information 
on the screen. So when you run line 100 only the characters 
enclosed in quotation marks are displayed. You can list and 
run line 100 as many times as you like. 

Figure 2- 1. Using LIST and RUN 

] 1 ( IQ PRINT "MY FAVORITE FOOD IS ARTICHOKES" 
] LIST 

100 PRINT "MY FAVORITE FOOD IS ARTICHOKES" 

] RUN 

MY FAVORITE FOOD IS ARTICHOKES 
1LIST 

100 PRINT "MY FAVORITE FOOD IS ARTICHOKES" 

] RUN 

MY FAVORITE FOOD IS ARTICHOKES 

m 


To see what happens when you give a different instruction 
with line 100, type 

100 PRINT "THE SUM OF 3 + 4 IS" 

110 PRINT 3 + 4 

The old line 100 has been replaced and is no longer in 
memory. Type L I ST to check. Now instruct the Apple to 

RUN 


Deferred Execution 
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What do you get? If you now type 
NEW 

and then 
LIST 

the computer’s memory is erased; both lines 100 and 110 
are lost. Type 

RUN 

and nothing is executed — since there is nothing in memory. 

Thanks for the Memory: It takes a while to understand 
the difference between what you see on the screen, what 
is in main memory, and what is stored on a disk. As you 
work with your Apple and this manual, the difference will 
become clearer. More information on this subject also can 
be found in your owner’s manual. 

You’ll have to give the Apple some more instructions, so 
type 

2 PRINT M P" 

1 PRINT "A" 

4 PRINT "E" 

3 PRINT "L" 

Now type 
LIST 

Notice that the computer stores statements in order of 
increasing line number: it has rearranged what you typed to 
read 

1 PRINT "A M 

2 PRINT "P" 

3 PRINT "L" 

4 PRINT "E" 

Now type 
RUN 
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You see that the computer also executes the statements in 
order of increasing line number. But that’s not good enough. 
There is a P missing. To add it, so the computer will print 

A 

P 

P 

L 

E 

you have to retype the statements with line numbers 3 and 4 
as statements 4 and 5 and add a new line number 3. To 
make the corrections, type this: 

3 PRINT "P" 

4 PRINT "L" 

5 PRINT "E" 

To see what has happened, use the LIST statement, and then 
RUN. 

Congratulations! You have just written a program. Putting 
together a series of statements preceded by line numbers is, 
in its simplest form, what programming is about. A program 
is a stored sequence (that’s what the line numbers are for) of 
instructions (like PRINT) that directs a computer to perform 
some function (in this case, to display APPLE on the screen). 

When one of the P’s was left out of APLE, it was a bother to 
retype those statements. There is an easier way. It is good 
programming practice to leave some room between line 
numbers and before the first line. If the line numbers had 
been 10, 20, 30, and 40, you could have added the missing P 
with line number 15. 


Deferred Execution 
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One of the advantages of deferred execution is that you can 
add to or modify your instructions without having to type 
everything over and over again. To see this in action, type 

NEW 

to eliminate the old instructions. Now put in these: 

100 PRINT "C" 

110 PRINT "T" 

When you run this program the letters don’t mean anything. 
But you can go back and type 

105 PRINT "A" 

List and run this program. 

Another advantage of deferred execution is that it is 
possible to store many statements at once. Of course, each 
statement must have a different line number. Here is a 
longer list of instructions to try: 


NEW 




10 

HOME 




20 

PRINT 

"MY 

APPLE 

GIVES MESSAGES:" 

30 

PRINT 




40 

PRINT 

"HI 

, THERE, PROGRAMMER!" 

50 

PRINT 




60 

PRINT 

"MY 

APPLE 

DOES COMPUTATIONS:" 

70 

PRINT 




80 

PRINT 

60 

/ 12 


90 

PRINT 

4 ‘ 

5 



Lines 30, 50, and 70 introduce blank lines between the 
statements, just as using a typewriter’s carriage return 
would. Since you probably want to see the results of these 
instructions right away, type 

RUN 

and watch the results appear. 
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MY APPLE GIVES MESSAGES: 


HI, THERE, PROGRAMMER! 

MY APPLE DOES COMPUTATIONS: 


5 

1024 

Does your screen look like this? If not, list your program to 
see what went wrong. (Notice that you can list a program 
after you have run it as well as before.) Here are some things 
to look for when you list a program: 

• Does each line have a different number? 

• Did you spell PRINT correctly? 

• Did you remember the quotation marks after each PRINT 
statement? 

If you need to correct any lines, simply type them over. Then 
list again to make sure they look right. (In the next chapter 
you’ll learn some faster ways to correct and edit your 
program lines.) 

In this section, you have learned several statements that 
help you work with whole programs. They are outlined in 
Table 2-1. 


Table 2-1. The Capabilities of NEW, LIST, and RUN 


Keyword 

Effect 

NEW 

Erases the current program from the computer’s 
memory. After using NEW, you have to enter 
something from the keyboard or load something 
from a disk. 

LIST 

Displays the program stored in memory. 

RUN 

Executes the program in memory, beginning with the 
statement with the smallest line number. 


Pause 
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The GOTO statement causes a 
program to branch to the 
indicated line. It is used to 
create a loop in a program. 

Suppose you want to print the integers 1 through 200, one 
number to a line. An obvious way to do this is 

100 PRINT 1 

110 PRINT 2 

120 PRINT 3 

and so on. But this would require 200 statements, and a lot 
of careful typing! Luckily, there is an easier way. You can 
print the positive integers using just 5 statements: 

NEW 

100 N = 1 

110 PRINT N 

120 N = N + 1 

130 GOTO 110 

Before you run this program, look at Figure 2-2 to see how 
the program works. 


Figure 2-2. Using the GOTO Statement 


Program Line 

Explanation 

100 N = 1 

Names the variable N and sets its value at 1. See Using 

Variables in Chapter 1. 

110 PRINT N 

Prints the variable N. 

120 N = N + 1 

Increases the value of variable N by 1. 

130 GOTO 110 

Does just what it says: it causes the program to go back to 
line 110. Line 110 prints N, line 120 increases N by 1, line 

130 says to do line 110 over again, and so on. Each time, a 
new value of N is printed, over and over. 
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Use (CONTROL | -(C~) to stop 
program execution. 


The CONT statement resumes, 
or continues, pr ogram 
execution after ( CONTROL ) - fcl 
is used to halt execution. 


Run the program. You will learn how to stop this program 
shortly. Meanwhile, admire the power of the program. If you 
typed RUN when instructed, two sentences back, the 
computer has executed the statement PRINT N a few 
hundred times already. 

Now stop the program by holding down the (control | key 
while typing (cT). The (control ) -(cl command stops 
program execution and tells you where the execution was 
stopped by displaying the line number, such as: 

BREAK IN 110 

By the way, this is an exception to the rule about pressing 
(return) after every instruction. Pressing (return) is usually 
not necessary when you stop a program with (control )- fc[) . 

Don’t Type the Hyphen: When you’re instructed to type 
something like ( control ) -fc], the hyphen indicates that 
you should press and hold the first key while typing the 
second. Don’t type the hyphen! 

When you stop a program with ( control ) -(c~), you can 
usually resume its execution by typing the instruction 

CONT 

which stands for continue. Do this now. 

As you look at the screen, notice that the numbers keep 
rippling up and out of sight. As each new number is printed 
at the bottom of the screen, all the others are moved up one 
line. This is called scrolling. You’ve been seeing it all along, 
but at a much slower rate. 

Stop program execution again with (control ) -fc). Practice 
using CONT and ( control ) -(cj until you get used to them. 
They will come in handy. 


Loops: The GOTO Statement 




I 


If you want to start the program again, type RUN. RUN starts 
the program again from the top, in contrast with CONT, 
which starts the program again from where it was 
interrupted. 

When you are ready for another example of the GOTO 
statement in action, stop the program with (control ) -(c~), 
and type 

NEW 


100 

PRINT 

"RAIN" 

1 1 0 

PRINT 

"IS" 

120 

PRINT 

"FALL 1 1 

130 

PRINT 

"DOWN" 

140 

PRINT 

"DOWN" 

150 

PRINT 

"DOWN" 

160 

GOTO 

100 


RUN 

( control ) -(cQ stops this program, and CONT continues it, 
for as long as you want. 

Earlier you learned that the RUN statement starts program 
execution at the smallest line number. However, you can 
start at some other line number if you want. Type 

RUN 130 

and you see 

DOWN 

DOWN 

DOWN 

on your screen before the program goes back to line 100 
and begins at the beginning. 
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You can specify line numbers in the LIST statement as well. 
Type 

LIST 130 

and the Apple lists only line 130. Type 
LIST 130,150 
or 

LIST 130-150 

and the computer lists all the program lines in its memory 
between and including line 130 and line 150. You cannot, 
however, specify a range of lines in the RUN statement. 


For Future Reference: A summary of Applesoft 
statements and a brief description of each statement can 
be found in Appendix A. When you need a quick reference 
(for example, if you want to know the difference between 
the LIST and RUN statements), Appendix A will come in 
handy. 

Pause 


Interacting With Your Program: INPUT 


The programs you have learned so far are sure to impress 
your less experienced friends. But what if you want to write a 
program to ask someone a question — a fill-in-the-blank 
exercise, so to speak? There is a statement you can use to 
do just that: the INPUT statement. 


The INPUT statement allows the 
programmer to interact with a 
program user from within a 
program. 


Say you want a program that asks a person’s age and uses 
whatever number the person enters in a displayed message. 
You already know how to use PRINT to display messages. So 
the first step is to include in the program the message you 
want used. You also know how to assign a variable name to a 
number. Since age is a variable, you’ll use what you already 
have learned for this. What you haven’t yet learned is how to 
use the INPUT statement. 
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Type this program, then list it to make sure you haven’t 
made any typing errors. Before you run it, look carefully at 
Figure 2-3. The order, or syntax, of each statement is 
especially important. 

Figure 2-3. Using the INPUT Statement 


Program Line 


Explanation 


NEW 


Erases old programs. 


10 HOME 


Clears screen. 


20 INPUT "HOW MANY YEARS 
OLD ARE YOU? AGE 


30 PRINT "YOU ARE " ; AGE ; " 
YEARS OLD!" 


Message, or question you want asked, 
is in quotation marks. Note semicolon between 
message and variable name. Variable name is 
AGE. 

Prints message, including the value of 
the variable AGE. Unless you type the spaces as 
shown, the words won’t be separate from the 
age. 


Now run the program. When you see the screen clear and 
the question 

HOW MANY YEARS OLD ARE YOU? 

on the screen, type in an answer (the number of your age). 
What happens? Run it again, and pretend you have a 
different age. 

When you execute the INPUT statement in its simplest form 
(just the word INPUT without a statement in quotation 
marks), it prints a question mark and waits for you to type 
something in. What you type is stored in a variable. 


54l 


Chapter 2: Elementary Programming 




When you use INPUT, you have to decide, or define, several 
things: 

• What question or message do you want the person using 
your program to see? Since INPUT, like PRINT, displays 
exactly what you write, it is important to ask a specific 
question. The message must be in quotation marks and 
separated from the variable name by a semicolon. If you 
use a question within quotation marks, you have to type 
your own question mark. 

• What do you want the user to type in? If you want a 
number, you must define a variable name. 

It is also possible to have the user type in a word or group of 
characters. You will see an example of this in a program later 
in this chapter and will learn more about INPUT and 
variables in Chapters 4 and 5. 

Here is an example of how to add a variable computation to 
your INPUT program. Leave lines 10 and 20 as they are. Add 
this new line: 

25 AGE = AGE * 3G5 

and change line 30 to read: 

30 PRINT "YOU ARE ABOUT " ; AGE ; " DAYS OLD!" 

Use the LIST statement to double-check your new lines. 
Then run the program. You’ll notice that it doesn’t give the 
exact number of days old a person is — unless it happens to 
be the birthday of the user. It estimates. That is why you 
added ABOUT to line 30. Each time you want to see this 
program in action, type RUN to begin execution. 
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I So You Want to Save Your Programs? 

So far, you have been using deferred execution by writing 
programs with line numbers, but each time you’ve typed 
NEW, your previous program has been erased from the 
computer’s memory. This section explains how to save your 
programs by using the computer’s Professional Disk 
Operating System™ (ProDOS). 


Getting Ready 


Formatting is a process used to 
prepare a disk to receive 
information. This process is 
explained in your owner’s 
manual. 


To save a program you need two things: a program to save, 
and a formatted disk on which to save the program. Of 
course, you can also save programs by writing them down, 
but that’s not nearly as much fun as using the Apple. 



If you’re using an Apple lie, you can save your programs 
on audio cassette tape. See the Applesoft BASIC 
Programmer’s Reference Manual tor instructions. 


CAT and CATALOG are 
operating system (ProDOS) 
commands that display a list of 
all the files on a disk in the 
specified disk drive. CAT 
displays a 40-column listing. 
CATALOG displays an 80- 
column listing. 


You should have a formatted blank disk on hand if you 
followed the instructions early in this manual. If you do, find 
it and proceed to the next section, Saving. 

If you are not sure whether a disk is formatted, find out by 
inserting it in the disk drive, typing 

CAT 

and pressing the (return) key. Something similar to this 
should appear on your screen if your disk is formatted: 

DISK. NAME 

NAME TYPE BLOCKS MODIFIED 

BLOCKS FREE: 273 BLOCKS USED: 7 

I® 


If this information appears on your screen, your disk is 
formatted and you can proceed to Saving. If you get an error 
message, the disk is unformatted. See your owner’s manual 
and utilities manual for instructions on how to format a disk. 
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Saving 

If you’ve been following the tutorial, and haven’t turned your 
system off since typing the age-asking program, your 
computer still has the age-asking program in memory. To 
make a permanent copy of this program on a disk, you give 
the SAVE command followed by the name you want to give 
the program. To see this in action, make sure your formatted 
disk is in the disk drive and type 


SAVE, when followed by a file 
name, is an operating system 
(ProDOS) command that stores 
the program currently in 
memory on a disk. 


SAVE AGE 

Your disk drive whirs briefly, and you see the red light go on. 
When the red light goes off, type 

CAT 


and you see a list of the programs saved on your disk. 



If you have two disk drives connected to your computer, 
ProDOS automatically uses drive 1 or the built-in drive 
when you start up your system. ProDOS continues to use 
drive 1 unless you tell it differently. To tell ProDOS to use 
drive 2, follow your ProDOS commands with ,D2 as in 
CAT,D2. ProDOS then uses drive 2 (that’s what D2 stands 
for) until further notice. To use drive 1 again, follow the 
ProDOS command with ,D1. 

Normally, with two disk drives you have a start-up disk 
(like the Applesoft Sampler disk) in drive 1 (or the built-in 
drive) and another disk (like the formatted blank disk) in 
drive 2. If you are using two disk drives and want to save 
the program on the disk in drive 2, type ,D2 after the 
program name. 

If you want more information on using two disk drives, see 
your owner’s manual and utilities manual. 


So You Want to Save Your Programs? 
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Once you have saved a program on a disk, you can transfer 
it into the computer’s memory by typing 

LOAD AGE 

When you give the LOAD command, the disk drive whirs as it 
searches for the program. As soon as the red light goes off, 
use the LIST or RUN commands to see the program you have 
just loaded. 

If nothing happens, type the program in again, and then save 
it. If still nothing happens, ask yourself: 

• Did I use a formatted disk? 

• Is a disk directory displayed when I give the CAT 
command? 

• If I have more than one disk drive, did I remember to type 
,D2 after the SAVE command (that is, assuming the disk 
you want to save on is in drive 2)? 

To store the program currently in memory on audio 
cassette tape, give the SAVE command without a file 
name after it. To read a program from cassette tape into 
the computer’s memory, use the LOAD command without 
a program name after it. 

Pause 

I Conditions: determining the “Truth” 

Lots of things in life are conditional: one thing has to happen 
before another thing can happen. For example, you have to 
reach a certain age before you can register to vote or legally 
drink beer. 

Another way of saying this is //you’ve reached a certain age, 
then you can register to vote or drink beer. This if... then 
statement is called a conditional statement. When you make 
a conditional statement, there are two possibilities: either 
the condition (the words following the if) has been met (is 
true) or has not been met (is false). 


The LOAD command, when 
followed by a program name, 
looks for the named program on 
the disk in the specified or 
default drive. 



(/As) 
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When you make a conditional statement in Applesoft, your 
Apple can determine whether the condition is true or false. It 
indicates that it knows a condition is false by responding 
with a 0. It indicates that it knows a condition is true by 
responding with a 1. 

If, for example, you type 

PRINT 17 >= 18 

the Apple responds with 0 on the next line. 

IPRINT 17 >= 18 
0 

Applesoft understands the statement to mean “17 is greater 
than or equal to 18” and, since it is not, responds with 0 to 
indicate the falseness of the condition. If, on the other hand, 
you type 

PRINT 75 >= 18 

the computer answers with 1 because the condition is true: 
75 is indeed greater than or equal to 18. For more examples 
of Applesoft’s response to the condition of greater than or 
equal to, try typing each of the following statements: 

PRINT 18 >= 18 
PRINT 3 >= 18 
PRINT 27 >= 18 

Because Applesoft can distinguish true conditions from 
false conditions, it has the ability to make choices. If a 
condition is true, Applesoft follows one set of instructions; if 
a condition is false, Applesoft follows another set of 
instructions. 

Computer Jive: Applesoft’s system of evaluating 
conditions is based on the binary numbering system, 
which consists of ones and zeros. Binary is a word you will 
hear often in computer circles since computers store and 
manipulate information in binary form. In other words, 
information you type into the computer is translated into 
ones and zeros; this is called machine language. 
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Symbols Used to Indicate Conditions 

You can use six symbols in Applesoft to indicate 
relationships between values. Table 2-2 lists them and gives 
some examples of each symbol. 


Table 2-2. Applesoft Symbols Used to Indicate Conditions 


Symbol 

Meaning 

Examples 



True (1) 

False (0) 

= 

is equal to 

3 = 3 

3=1 

> 

is greater than 

78 > 55 

78 > 124 

< 

is less than 

10 < 20 

10 < 9 

> = 

is greater than or equal to 

4 >= 4 

4 > = 25 

< = 

is less than or equal to 

32 <= 33 

32 <= 30 

<> 

is not equal to 

32 <> 33 

32 <> 32 


Think about and then test these conditions. Which are true? 
Which are false? (Remember, you can substitute a question 
mark for PRINT.) 

PRINT 5 <> 5 
PRINT 8 <= 8 
PRINT -8 < -7 
PRINT -2 >= -5 
PRINT 9 <> -9 

PRINT (45 * 6) <> (-45 + 6) 


Applesoft’s Rules for Evaluating Conditions 

When you write a condition for Applesoft to evaluate, you 
can include variables (like AGE), numbers (like 5), and 
arithmetic expressions (like 45 * 6). You can also include 
more than one condition in a statement. 

Suppose you want to test a statement that contains more 
than one condition and a number of operations. Type 

PRINT 6*7/2>=(3+4)* (10 - 2) = 56 

Applesoft evaluates the conditions in this statement after it 
does the arithmetic operations. 
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Remember the order of precedence you learned in 
Chapter 1? Applesoft follows this order when evaluating any 
statement containing a condition or an arithmetic operation. 
To review: 

• First, parenthetical operations are evaluated. 

• Second, unary minus signs used to indicate negative 
numbers are evaluated. 

• Third, exponentiation is evaluated. 

• Fourth, multiplication and division is evaluated from left to 
right. 

• Fifth, addition and subtraction is evaluated from left to 
right. 

• Sixth, symbols of condition are evaluated. All six symbols 
have the same priority; they are evaluated from left to 
right within the same statement. 

© Pause 

I ConditionaFlLoops: The IF...THEN Statement 

When you first tried loops, using the GOTO statement, your 
programs ran on and on, indefinitely, until you pressed 
(control ) -fcT). Another way of limiting such programs is to 
use conditions in combination with the IF.. .THEN statement. 

Say you want a program that counts to 20, then stops. What 
you want is a conditional statement that will limit the 
variable N to 20 or less. This would be written N <= 20. 

The idea of the program is if N is less than or equal to 20, 
then counting continues; if the assertion is false (if N is 
greater than 20), then counting stops. Not surprisingly, the 
Applesoft statement for this is IF.. .THEN. Here is a program 
that uses a condition in the IF.. .THEN statement: 

NEW 

200 N = 1 
210 PRINT N 
220 N = N + 1 

The IF.. .THEN statement creates 230 IF N < = 20 THEN GOTO 210 

a conditional program loop. 
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So long as N is less than or equal to 20, the program loops 
back to line 210. When the condition is no longer true, the 
program won’t return to line 210, so execution ends. Try the 
program. 

Loops, whether executed by airplanes or computer 
programs, have a top and a bottom. In this program line 210 
is the top of the loop and line 230 is the bottom. The number 
20 is the limit of the loop. 

In general, the IF statement works like this: The condition 
following IF is evaluated. If the result is 0 (false), all the rest 
of that program line is ignored, and the computer goes on to 
the next line. If the result is not 0 (true), the statement 
following THEN is executed. 

To see how conditions work with IF.. .THEN statements, use 
your AGE program. To transfer the program AGE from the 
disk back into memory, type 

LOAD AGE 

and then L I ST. What you should see on your screen is 


10 

HOME 





20 

INPUT 

AGE 

"HOW 

MANY YEARS 

OLD ARE 

YOU? 

25 

AGE = 

AGE * 

365 



30 

PRINT 

OLD!" 

"YOU 

ARE ABOUT 

" ; AGE ; " 

DAYS 


Change lines 25 and 30 to 

25 IF AGE > 18 THEN GOTO 40 
30 PRINT "YOU WILL BE ABLE TO VOTE IN " ; 
18 - AGE;" YEARS." 

and add lines 35 and 40: 


The END statement causes a 
program to cease execution and 
returns control to the user. 


35 END 

40 PRINT "YOU ARE ELIGIBLE TO VOTE. HAVE 
YOU REGISTERED?" 


Adding the END statement on line 35 prevents the program 
from printing both line 30 and line 40. 
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Figure 2-4 shows the two paths this program can take. Run 
the program after you have studied the diagram. 


Figure 2-4. A Conditional Loop 



To Save This Version: Unless you want to erase the old 
program AGE, you must save this new version with a 
different name. Since it is helpful to use program names 
that remind you what the program does, you could use 
VOTE. AGE for the name of the new version. 


A Sample Program: COLORLOOP 

The COLORLOOP program uses graphics to demonstrate a 
conditional loop. It is already stored on the Applesoft 
Sampler disk, so you can take a break from typing! 

Loading this program from a disk into the computer’s 
memory is not much different from loading a program you 
have saved yourself. Just make sure the Sampler disk is in 
drive 1 (or the built-in drive). If you are at the Main Menu, 
choose option 3 to use BASIC, and when you see the cursor 
and prompt, type 

RUN COLORLOOP 
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If you are already in BASIC, just type 
RUN C0L0RL00P 

and you hear the drive whir as it looks for the program. 
When COLORLOOP is loaded into the computer’s memory, 
it runs automatically. 

Remember that if the Applesoft Sampler disk is in drive 2, 
you must type ,D2 after the program name. 

After execution stops, look at the program by typing TEXT, 
HOME, and L I ST. You should see this on your screen: 


400 

GR 


410 

ROW = 1 


420 

COLOR = ROW 


430 

HLIN 0, 39 

AT ROW 

440 

ROW = ROW + 

1 

450 

IF ROW < 16 

THEN GOTO 420 


If You Don’t Have a Disk Drive: All of the programs on the 
Applesoft Sampler disk are listed in this manual. 

Whenever you are instructed to load a program from the 
disk, you should instead type the program in from the 
listing. 

ROW is the name of the variable in this program. In line 420, 
the COLOR = statement makes the color equal to the value 
of the variable ROW: each time the value of ROW changes, 
the value of COLOR = changes with it. 

Observe this program as it is executed. It uses graphics to 
demonstrate the same kind of conditional loop you added to 
AGE and used in the counting program. So long as the 
variable ROW is less than 16, the program returns to line 
420 and executes another loop. When ROW is not less than 
16, the condition is false and the program ends. You are 
beginning to see how to combine Applesoft statements in 
some interesting ways! 
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More Practice With the IF Statement 

The IF statement is a powerful one, and you will use it in 
almost every program you write. Typing in and running the 
following program will give you more practice with it. You’ll 
first type the program without an IF statement, then add one 
to see what happens. You’ll be changing the program several 
times. Making the changes will give you a sense of how the 
statements you’ve been learning about can be used in 
combination with each other. 

Remember that you need to type 

TEXT 

if you want to see all the program lines as you type them in. 


NEW 




200 

GR 



210 

COLOR 

= 

9 

220 

PLOT 

0, 

0 

230 

PLOT 

0, 

39 

240 

PLOT 

39 

,39 

250 

PLOT 

39 

,0 


List the program to check your typing; then run it. Quick, 
isn’t it? Now change line 210 to another color with 

210 COLOR = 15 

and run the program again. Try to list the program. Notice 
that you only see lines 240 and 250. The rest of the listing will 
not fit in the narrow text window at the bottom of the screen. 
This will continue to happen unless you type 

TEXT 

to get out of the graphics mode and then 
HOME 

to get rid of the garbage on the screen before you use the 
LIST statement. 
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Now replace lines 220-250 with the following, and then list 
the program (while you are still in text mode). 

220 COLUMN = 0 

230 VLIN 0, 39 AT COLUMN 

240 COLUMN = COLUMN + 1 

250 IF COLUMN < 40 THEN GOTO 230 

A Hint on Appearances: Sometimes when you list a 
program it won’t look exactly the same as what you typed. 
Don’t worry: Applesoft automatically inserts spaces after 
some words. This tutorial will let you know when to pay 
special attention to spacing in your program statements. 

This program makes the screen a solid color. Run it now. 

That’s An Old Line: Because you haven’t typed NEW, the 
old line 200 is still around. So long as it is in the 
computer’s memory (and it will be until you type NEW, turn 
the computer off, or change the line), you can use it in your 
program. 


Figure 2-5. The VLIN Loop Program 


Program Line 

200 GR 

210 COLOR = 15 
220 COLUMN = 0 


230 VLIN 0 ,39 AT COLUMN 
240 COLUMN = COLUMN + 1 


Explanation 

Sets graphics mode. 

Sets color. 

Names the variable COLUMN because the 
program will be working in the columns of low- 
resolution graphics. Setting COLUMN to 0 
instructs the program to begin in first column. 

Draws vertical line in column 0. 

Adds 1 to value of variable. 


250 IF COLUMN < 40 THEN GOTO 230 If the value of the variable COLUMN is less than 

40 (if the condition is true), the program loops 
back to line 230 and draws a new vertical line in 
the new column. When the value of COLUMN 
reaches 40 (remember, the rightmost column on 
the screen is 39), the program stops. 
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To eliminate typing RUN each time you want to fill the screen 
with color, add the line 

260 GOTO 210 

Watch what happens when you run the program now. Try 
typing something else. What you type doesn’t show up 
because the program is running continuously: it keeps going 
back to line 210 over and over. To stop the program, press 
(control ) - fc]. To get it going again, type CONT. 

Now stop it again with ( control ) - fc~). Type TEXT, HOME, and 
then L I ST. Line 260 creates an infinite loop with the GOTO 
statement — since there is nothing in the program to stop it. 
If you want to save this program without the infinite loop, 
remove line 260 before saving by typing 

260 

Don’t forget to press (return) ! 

A Note About Line Numbers: Line numbers can begin 
with 10, 100, 1000, or whatever number you choose. What 
is important is to leave space between the numbers so it is 
easy to add lines when necessary. While you are doing the 
programs in this manual, however, it is important to use 
the same line numbers as in the examples. If you don’t, 
you will get confused when it comes to additions and 
changes like the ones you made in the last program. 
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Adding Remarks to a Program 


REM is a statement that allows 
you to put remarks, or 
commentary, in a program. 


As you can see from the description of the last program, 
what happens on any given line can be complicated. There is 
a statement in Applesoft that lets you make notes to yourself 
in the program explaining what is going to happen. The 
statement is REM; it stands for remark. 

The computer ignores REM statements; they are strictly for 
the benefit of people. See how easy it is to follow the VLIN 
loop program shown in Figure 2-5 when REMs are used 
liberally: 


Figure 2-6. Using REM Statements in a Program 

195 REM SET GRAPHICS MODE 
200 GR 

205 REM SET COLOR 

210 COLOR = 15 

215 REM START AT COLUMN 0 

220 COLUMN = 0 

225 REM DRAW VERTICAL LINE AT COLUMN 

230 VLIN 0,39 AT COLUMN 

235 REM PROCEED TO NEXT COLUMN BY ADDING 1 
240 COLUMN = COLUMN + 1 

245 REM LOOP MAKES IT EXECUTE OVER AND 

OVER UNTIL COLUMN 39 IS REACHED 
250 IF COLUMN < 40 THEN GOTO 230 

If you look carefully you will see that the program still gives 
the same instructions as it did before. The added REM 
statements simply explain what the line (or lines) following 
them will do. 

A Remark About REM: REM statements are optional. 
Applesoft does not execute them, because they are 
informational. You can use them as you wish. The longer 
your programs, the more helpful REM statements are. 
They help anyone who looks at the program understand 
what it does. 


68l 


Chapter 2: Elementary Programming 


■ FOR/NEXTLoops 


The FOR/NEXT statement sets 
up a program loop that is 
carried out the number of times 
specified by the TO portion of 
the statement. 


If you want to write a program that regularly increments a 
variable, using the FOR/NEXT statement is an efficient way 
to do it. The FOR/NEXT statement creates a program loop 
that works within a range of numbers. You define the range 
with a variable. 


Type TEXT to return to text mode and HOME to clear the 
screen. Then try this program: 


NEW 

100 FOR NUMBER = 0 TO 12 
110 PRINT NUMBER 
120 NEXT NUMBER 

130 PRINT "PROGRAM IS FINISHED WHEN LAST 
NUMBER IN THE FOR STATEMENT IS 
DISPLAYED" 


Run this program. You see that it does essentially the same 
thing as the number counting program you produced with 
IF.. .THEN. Figure 2-7 explains how the FOR/NEXT program 
works. 


Figure 2-7. The FOR/NEXT Sta temen t 


Program Line 


Explanation 


100 FOR NUMBER = 0 TO 12 Sets range of the variable NUMBER to 0-12. 

110 PRINT NUMBER Value of variable, NUMBER, is displayed. 

120 NEXT NUMBER 


130 PRINT "PROGRAM IS 
FINISHED WHEN LAST 
NUMBER IN THE FOR 
STATEMENT IS DISPLAYED" 


This is the bottom of the loop. The variable is 
increased by 1 and then compared to the upper 
limit specified in line 100: 12. When the limit of 
the range is reached, the program stops, as line 
130 indicates. 


FOR/NEXT Loops 
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In a FOR/NEXT statement the variable acts as a counter: it 
specifies the number of times the loop will run. In any 
FOR/NEXT loop, if the variable is not over the limit, 
execution continues at the statement immediately following 
the FOR. If the variable is over the limit, the program drops 
(out of the loop) to the statement after the NEXT. In this 
program line 130 is not displayed until the limit 12 is 
reached. 

The most important advantage of the FOR/NEXT method of 
constructing loops is that you don’t have to think so hard 
when writing the loop. If you want to draw a series of 
horizontal lines on the screen using each of the 16 colors, 
substitute this program for COLORLOOP: 


NEW 

3000 

GR 




3005 

REM SETS VARIABLE 

RANGE 

TO 

0-15 

3010 

FOR ROW = 0 TO 15 




30 15 

REM MAKES VALUE OF 

COLOR THE SAME AS 


VALUE OF VARIABLE 




3020 

COLOR = ROW 




3025 

REM DRAWS HLIN AT 
RANGE 

EACH 

ROW 

WITHIN 

3030 

HLIN 0, 39 AT ROW 




3035 

REM WHEN LIMIT OF 
PROGRAM ENDS 

RANGE 

IS 

REACHED, 

3040 

NEXT ROW 





After you’re done running the program, leave the graphics 
mode by typing TEXT; type HOME to clear the screen. Now 
compare the two programs that follow. They show two ways 
to print the even numbers from 0 to 12. The first uses 
IF.. .THEN: 

NEW 

100 X = 0 
110 PRINT X 
120 X = X + 2 

130 IF X <= 12 THEN GOTO 110 
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In line 120, 2 is added to the variable X. This loop increases 
by 2. The second example shows how to display the even 
numbers from 0 to 12 using the STEP command within a 
FOR.. .NEXT loop. 


200 FOR X = 0 TO 12 STEP 2 
210 PRINT X 
220 NEXT X 


Use STEP only within a 
FOR/NEXT statement. Its use is 
optional. 


Now type and run these programs. 

You may be wondering why you see two sets of even 
numbers from 0 to 12 on your screen. Type LIST to see if 
you can figure out why. 

Hint: The two sets of numbers appear on the screen 
because lines 100 to 130 as well as lines 200 to 220 were 
executed when you typed RUN. To see only the second 
program, type RUN 20 0. To remove a previous program 
from memory, you can manually delete it or you can begin 
each program with NEW. Don’t use the NEW command 
with a line number. If you do, your programs will never run! 

A program can STEP by any number in Applesoft’s range, 
from approximately -32768 to +32767. A program can also 
STEP backward, as in 

200 FDR X = 39 TO 15 STEP -3 

Type this line and execute it by typing 

RUN 200 

Notice that the statement RUN 200 also executes lines 210 
and 220 because all line numbers larger than the one 
indicated in a RUN statement are executed. 

Now try some of your own FOR/NEXT statements. Several of 
the example programs from this point on use the FOR/NEXT 
statement. 
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FOR/NEXT Loops 


Nested and Crossed Loops 


If you have the Main Menu of the 
Applesoft Sampler disk on your 
screen now, choose option 3 to 
use BASIC. Then type RUM 
HUE. 


When you become more skilled at using FOR/NEXT loops, 
you will find that you can use many in one program, and can 
contain one loop inside another. These are called nested 
loops. Two-level nesting is demonstrated in the HUE 
program on your Applesoft Sampler disk. Run it now. Try to 
figure out how it works before listing it. 


Figure 2-8. Nested Loops: The HUE Program 

NEW 

300 GR 

310 FOR HUE = 1 TO 15 

320 COLOR = HUE 

330 FOR ROW = 0 TO 39 

340 HLIN 0,39 AT ROW 

350 NEXT ROW 

360 COLOR = HUE - 1 

370 FOR COLUMN = 0 TO 39 

380 VLIN 0,39 AT COLUMN 

390 NEXT COLUMN 

400 NEXT HUE 


Warning 

When writing programs using FOR statements, remember 
that each FOR must have a matching NEXT. 


One thing you have to be careful to avoid with the 
FOR/NEXT statement is a crossed loop. Look at the 
program in Figure 2-9. 

Figure 2-9. Crossed Loops 

NEW 

500 FOR N = 10 TO 20 

510 PRINT N 

520 FOR J = 30 TO 40 

530 PRINT J 

540 NEXT N 1 

550 NEXT J 
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This program doesn’t work correctly. Try it and see. Type 
TEXT, HOME, enter the program, and RUM. 

This is an example of what happens when each FOR doesn’t 
have a matching NEXT. The program’s loops are crossed, so 
it jumbles the numbers as it displays them. It also gives an 
error message. 

See if you can fix the program by uncrossing the loops. 

Now run the QUILT program from the Applesoft Sampler 
disk to see an example of three-level nesting. This program 
avoids using COLOR as a variable name because, as you 
may recall, COLOR is a reserved word in Applesoft. 

Figure 2-10. Three-Level Nesting: The QUILT Program 

NEW 

400 GR 410 HUE = 0 

420 FOR COLUMN = 0 TO 35 STEP 5 

430 FOR LINE = 0 TO 30 STEP 10 

440 HUE = HUE + 1 

450 IF HUE > 15 THEN HUE = 0 

460 COLOR = HUE 

470 FOR ROW = LINE TO LINE + 9 

480 HLIN COLUMN, COLUMN + 4 AT ROW 

490 NEXT ROW 1 

500 NEXT LINE 1 

510 NEXT COLUMN 

QUILT a la Mode: You might want to try an experiment 
now that has nothing to do with loops. Type TEXT, HOME, 
and L I ST. Remove line 400 by typing 400 and pressing 
(return) . Run the program. 

When you remove the GR statement, the program 
executes in text mode. When you put line 400 back, the 
program executes in graphics mode again. You can do 
this with any program that uses graphics. 

Pause 


Nested and Crossed Loops 
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I Controlling Spaces in Your Programs 

You can create different display effects in program 
execution by using the comma and the semicolon in 
Applesoft. You can also use three Applesoft statements to 
control spacing in programs. The examples in this section let 
you experiment so you become familiar with these 
capabilities. 


Using Commas and Semicolons 

As a first experiment, type this program and see what it does 
when you run it. 

NEW 

100 PRINT "MELLOW" 

110 GOTO 100 

Stop the program with (control ) - fcl. Then add a comma to 
line 100. 

100 PRINT "MELLOW", 

and run the program again. The program now prints the 
word in columns. Use (control ) -fc] again to stop the 
program, and then substitute a semicolon (;) for the 
comma (,). 

Use a semicolon for output with 100 PRINT "MELLOW"; 
no spaces between the words or 

numbers. Use a comma for Run the program again. This time the display runs together, 

output in columns. leaving no spaces between the words. It prints MELLOW 

after MELLOW until you stop the program with 

(CONTROL ) -(cl. 

Change the program by adding the statement 
90 V = 99 

and change line 100 to read 
100 PRINT V 
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Run this program. Now add a comma to line 100. 

100 PRINT V, 

Run it again. Then change the comma to a semicolon. 

100 PRINT V; 

Observe that the comma and semicolon also can be used 
with numeric values. The ability to place numbers one after 
the other without intervening spaces is sometimes quite 
useful. 

Commas and semicolons can be used within a PRINT 
statement. Remove the old lines with NEW, and type 

100 BALLS = 3 

110 STRIKES = 2 

120 PRINT BALLS, STRIKES 

RUN 

Your screen should look like this: 

3 2 

You can make clearer output by including a message in the 
PRINT statement. For example, change line 120 to 

120 PRINT "BALLS AND STRIKES ARE 
";BALLS, STRIKES 

and the program appears on your screen as 

BALLS AND STRIKES ARE 3 2 

unless you didn’t include a space after ARE. Another way of 
writing the statement is 

120 PRINT "BALLS ARE "; BALLS ; " AND STRIKES 
ARE " ; STR IKES 

Perhaps the most appropriate way to print this line (are you 
trying all of these on your Apple?) is to add some spaces 
within the PRINT statement (between the quotation marks) 
like this: 

120 PRINT "BALLS "; BALLS;" STRIKES "; STR IKES 
This gives you a scoreboard-like display: 

BALLS 3 STRIKES 2 


Controlling Spaces in Your Programs 
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Using TAB, VTAB, and HTAB 

Now let’s say you wanted to put HERE in the tenth column 
(the screen is 40 columns across). You could use the 
statement 


120 PRINT " HERE" 


The display function TAB, which 
can only be used in a PRINT 
statement, moves the cursor to 
a specified tab stop on the 
screen. 


making sure that you carefully added exactly nine blanks 
before the word HERE. Or you could use the TAB feature, 
which lets you set a tab in your programs that acts like a tab 
on a typewriter. Try the statement 

120 PRINT TAB( 10); "HERE" 


to see TAB in action. 


TAB can only be used in a PRINT statement and must be 
followed by an argument : a number or variable contained in 
parentheses. When TAB is combined with a variable, such as 
N, it spaces according to the value of the variable. Here is an 
example: 

NEW 

200 FDR N = 1 TO 24 
210 PRINT T AB( N ) ; "X" 

220 NEXT N 


VTAB moves the cursor to the 
specified vertical row on the 
display screen. 


There are two related statements you can use to position the 
cursor in various parts of the screen. 

VTAB moves the cursor up or down the 24 horizontal display 
lines. The top line is line 1; the bottom line is line 24. VTAB, 
unlike TAB, is not used within a PRINT statement. 
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The HTAB statement moves the 
cursor either left or right to the 
specified column (1 through 40) 
on the screen. 


You can tab horizontally with HTAB. It works like TAB, but 
can cause printing to begin either to the left or to the right of 
the current printing position and does not have to be used 
with the PRINT statement. The leftmost character on a line is 
in position 1, while the rightmost character is in position 40. 

Here is a program that shows how HTAB moves the cursor 
on the screen: 

NEW 

10 PRINT "RUN" 

20 HTAB 5 

30 PRINT "FASTER, " 

40 HTAB 34 
50 PRINT "FASTER," 

60 HTAB 81 
70 PRINT "OR ELSE!" 

Try typing it in and running it. 

The program SPACES on the Applesoft Sampler disk 
demonstrates the use of HTAB and VTAB together. Load it 
now. Or you can type it in: 


NEW 




590 

HOME 



600 

FOR X = 1 

TO 

24 

610 

FOR Y = 1 

TO 

X 

620 

HTAB X 



630 

VTAB Y 



640 

PRINT "APPLE" 


650 

NEXT Y 



660 

NEXT X 



670 

GOTO 600 




Before you run this program, try to figure out what it will do 
(it isn’t easy!). 


Controlling Spaces in Your Programs 
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While TAB, HTAB, and VTAB act somewhat like the 
coordinates in PLOT, there are some differences. 

• The 40 columns for the TAB instruction are numbered 
from 1 to 40, as they would be on a typewriter, while PLOT 
coordinates are numbered from 0 to 39 for graphics 
display. 

• VTAB’s limits are 1 through 24. Since characters are taller 
than the bricks used in low-resolution graphics, there is 
room for only 24 lines of screen display. 

• The largest value that can be used with TAB and HTAB is 
255. 

• If you try to enter a 0 or a number that is too large or too 
small for TAB, VTAB, or HTAB, your Apple gives you an 
7ILLEGAL QUANTITY ERROR. 

• TAB and HTAB both tab past the end of the screen and 
wrap around to the next line. 

To see wraparound in action, type and run 

MEW 

300 FDR K = 1 TO 255 
310 PRINT TABOO ; K 
320 NEXT K 

Normally TAB is not used in this way. A more usual method 
would be to use HTAB. Replace lines 310 and 320 with 

310 HTAB K 
320 PRINT K 

and add 

330 NEXT K 

Now run the program. What happens to it when you replace 
HTAB with VTAB? How could you change the program to 
conform to the screen limits? 
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Getting Used to the Screen Space: Be assured that the 
numbering systems you use for the screen’s dimensions 
will become more familiar with use. The screen is always 
divided into 40 horizontal rows and 40 vertical columns. 
The horizontal numbers vary depending upon the mode 
(0-39 in graphics, 1-40 in text); and the vertical numbers 
change because characters take more space than the 
bricks used in graphics. 


I A Quick Review Program 


Here is a program that combines most of the statements you 
have used in this chapter. One part isn’t familiar: the variable 
N$. You will find out more about this kind of variable in 
Chapter 5. Type 

NEW 

10 HOME 

20 INPUT "WHAT IS YOUR FIRST NAME?"; N$ 

30 PRINT 

40 FOR A = 1 TO S 

50 PRINT TAB CA); "HI, " ; N$; ", HOW ARE 
YOU?" 

60 NEXT A 
70 END 

List this program to check your typing, correct any mistakes 
you might have made, and run it. If you like it, and you want 
to store it on a disk for future use, all you need to do is type 

SAVE WELCOME 


and then type CAT to make sure it has been stored on the 
correct disk. 


A Quick Review Program 
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Making Changes 




So far, you have learned several simple ways of fixing 
mistakes in programs. However, you are getting the hang of 
things now, and beginning to work with longer programs, so 
it is time to give you a few more tools for changing or editing 
your work. 

Just to refresh your memory: you have learned that if you 
catch a typing mistake before you press (return) , you can 
use Q and Q to fix the mistake. The Q key backs the 
cursor up to the error, and the Q key copies over the 
remainder of the line after you have made the correction. 
You also know that when you notice a mistake after you have 
pressed (return) , you can type the line over again. 

Now you’re ready to learn some new editing commands. 


I Moving the Cursor: Escape Mode 

You can move the cursor around the screen to position it 
over a letter you want to change, by entering escape mode 
and using the four arrow keys. To enter escape mode you 
simply press the (esc) key once. 


Moving the Cursor: Escape Mode 
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Practice With Escape Mode 

There are several intentional mistakes in the lines below. 
Follow the step-by-step instructions to get an idea of how 
escape mode works. 

What You Do What Happens 

1. Type exactly what you All the mistakes you type 
see: appear on the screen. 


NEW 

10 PRUNT 

"THE 

MOCK 

INGBIRD" 

20 PRINT 

TAB 

CS) ; 

"SINGS" 

30 PRINT 

RAB 

(3) : 

"IN SPRING" 

!. Type L I ST 

10 


Because RUN is a reserved 


word, Applesoft adds spaces 
around it. 


10 P RUN T"THE MOCKINGBIRD" 


Pressing (ESC) puts you into 
escape mode. 


the screen while you are in 
escape mode. (You can’t see 
it, but nothing changes in the 
computer’s memory either.) 

] L I ST 10 


3. Press and release (esc) 
once. 

4. Press QD three times. 

5. Make sure the cursor is 
over the leftmost digit. 


This puts you into escape 
mode. 

The cursor moves to line 10. 

Notice that the cursor moves 
but nothing else changes on 


10 P RUN T"THE MOCKINGBIRD" 

] 

Pressing the (space) bar takes 6. Press the ( space ) bar. This takes you out of escape 
you out of escape mode. mode. 
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7. Press Q until the cursor 
is over the U in PRUNT. 


Q copies over characters 
when you are not in escape 
mode (so you don’t have to 
type them over). 

] L I ST 10 

10 P RUN T M THE MOCKINGBIRD" 

] 


8. Replace the U with an I. 

] L I ST 10 

10 P RIN T"THE MOCKINGBIRD" 
] 


9. Copy the rest of the 
characters in the line with Q- 
When you reach the end of 
the line, press (return) . 

10. Type LIST 1 0 to see the 
corrected line. 

] LIST 10 

] 10 PRINT "THE MOCKINGBIRD" 

m 
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Use ED. 0. 0. and 0 in 
escape mode to make changes 
to program lines. 


If you were to run the program now, a 7SYNTAX ERROR IN 30 
would appear on the screen because there are two mistakes 
in line 30 that you haven’t fixed yet. RAB should be TAB, and 
the colon should be a semicolon. To correct line 30, follow 
the same procedure you used for line 10: 

1. Type L I ST. 

2. Get into escape mode by pressing (esc) . 

3. Use the arrow keys to move the cursor to the beginning of 
line 30. 

4. Leave escape mode by pressing the (space) bar. 

5. Use 0 to move the cursor over the offending characters. 

6. Replace the offending characters. 

7. Copy the remainder of the line with ED- 

8. List the line again, to make sure you have corrected all 
the mistakes. 

9. Run the program. 

Using escape mode may seem a bit complicated at first, but 
it is easy once you get the hang of it. Promise! 


Rules for Using Escape Mode 

Here is a summary of the rules to follow whenever you use 

escape mode: 

• To get into escape mode, press (esc) . To leave escape 
mode, press the (space) bar. Once you are out of escape 
mode, all you have to do to get back in is press (esc) . 

• To correct or change something using escape mode, you 
must position the cursor over the first digit in the line 
number of the line you wish to fix, and retype from there. 
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• Escape mode allows you to correct only one program line 
at a time. 

• After you make a change in a line it is important to copy 
over the remainder of the line with the 0 key. 

• The Q and 0 keys work differently in escape mode than 
they do in normal mode. In escape mode, they move the 
cursor around without affecting the characters on the 
screen. The arrow keys used without pressing (esc) first, 
erase (0) and copy over (0) the characters they go 
over. 


Other Escape Commands 

Three other commands are useful when you are doing a lot 
of editing. These commands clear away text from all or part 
of the display screen and then leave escape mode. 

• (esc) -(@1 (press (esc) , let go, then press (shift) key and 
(@1 to produce the @ sign) clears the entire screen, just as 
the HOME statement does, and moves the cursor to the 
top-left corner of the screen. 

• ( esc ) -fF~) clears the screen from the cursor to the bottom 
of the screen. 

• (esc) -(T) clears the screen from the cursor to the end of 
the line. 


The Limits of Escape Mode 

Now that you’ve successfully used escape mode to correct 
some program lines, you can take a break (of sorts). Get into 
escape mode and play with the four arrow keys: move the 
cursor to the top of the screen, down to the bottom, up to 
the middle, over to the right edge, and all around. Test the 
limits of escape mode. 

What happens when the cursor gets to the right edge of the 
screen? (Hint: it wraps around. You saw this when you used 
TAB and HTAB.) What happens when you accidentally press 
some other key while you are in escape mode? Try it — 
finding out how it works now will save you some headaches 
later. When you get tired of moving the cursor around the 
screen, press the (space) bar to leave escape mode. 
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Helpful Hints: If you don’t position the cursor over the first 
digit in the line number of the line you want to fix, some of 
the line will be lost. If you don’t believe this, try it! 

The reason you corrected line 10, listed it, and then 
corrected line 30 is because it is difficult to correct more 
than one program line at a time in escape mode. 


I Inserting Text Into an Existing Line 

Sometimes you may notice that an addition to a program 
line would make the program a lot nicer. Suppose, for 
example, that you want to insert a TAB (10) statement after 
PRINT in the line 

90 PRINT "THIS IS A SHORT PROGRAM" 

Follow the step-by-step instructions below to see how text 
insertion works. 

What You Do What Happens 

1. Type 
NEW 

90 PRINT "THIS IS A 
SHORT PROGRAM" 

2. Use RUN to see how the 
line looks. 

] RUN 

THIS IS A SHORT PROGRAM 

m 

3. Type LIST 90 
] L I ST 90 

90 PRINT "THIS IS A SHORT PROGR 
AM" 


IBS 
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4. Press (esc) . 

5. Press CD three times to 
position the cursor over the 
leftmost digit of the line 
number. 

6. Press the (space) bar. 

7. Press Q until the cursor 
is over the first quotation 
mark. 


This puts you into escape 
mode. 

This positions the cursor 
over the 9 in line 90. The 
cursor must be over the first 
digit for corrections or 
insertions to work properly. 

This leaves escape mode. 

This positions the cursor at 
the place in the line where 
you want to insert 
something. 


] L I ST 90 

90 PRINT "THIS IS A SHORT PROGR 
AM" 

] 


8 . Press (esc) . 

9 . Press CD once. 


] L I ST 90 

& 

90 PRINT "THIS IS 
AM" 

] 

10 . Press the (space) bar 
once. 


This puts you back in escape 
mode. 

The cursor should be directly 
above the first quotation 
mark. This positions the 
cursor just above the line to 
which you want to add text. 


This takes you out of escape 
mode. 


A SHORT PROGR 


re- 


inserting Text Into an Existing Line 


11 . Type TAB ( 10) ; 


] L I ST 90 

TAB C 1 0) ; 

90 PRINT "THIS IS 
AM" 

] 

12 . Press (esc) . 


13 . Press (X) once. 


] L I ST 90 

TAB C 1 0) ; 

90 PRINT "THIS IS A 
AM" 

] 

14 . Press Q until the cursor 
is over the first quotation 
mark. 


] L I ST 90 

TAB (10); 
90 PRINT "THIS IS A 
AM" 

] 

15 . Press the (space) bar 
once. 


90l 


This is the text you are 
adding to the line. 


SHORT PROGR 


This returns you to escape 
mode. 

This positions the cursor 
over the A. 


SHORT PROGR 


This returns the cursor to the 
point at which you began the 
insertion. It allows you, after 
you leave escape mode, to 
copy over the remainder of 
the line with Q- 


SHORT PROGR 


This takes you out of escape 
mode. 
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16 . Press Q until the cursor 
is on the space following R of 
PROGRAM. 

] L I ST 90 

TAB (10); 

90 PRINT "THIS IS A SHORT PROGRSi 
AM" 

] 

17 . Press (esc) . This step, and the two that 

follow, moves the cursor to 
the right without copying the 
spaces between PROGR and 
AM. See the Helpful Hints 
that follow for more 
information. 

18 . Press Q until the cursor 
is on the A. 

] L I ST 90 

TAB (10); 

90 PRINT "THIS IS A SHORT PROGR 
AM" 


] 


19 . Press the ( space ) bar. This takes you out of escape 

mode. 

20 . Copy the remainder of 
the statement with Q and 
press (return) . List the line. 


] L I ST 90 

TAB (10); 

90 PRINT "THIS IS A SHORT PROGR 
AM" 

] L I ST 90 

90 PRINT TAB( 10);"THIS IS A S 
HORT PROGRAM" 


]iK 
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21. Run the line to see the 
difference in its execution 
after adding TAB (10). 


] RUN 

IBS 


THIS IS A SHORT PROGRAM 


22. Now try adding VERY 
before SHORT in the same 
line. When you are finished, 
the statement should LIST as 

] L I ST 

90 PRINT TABC 10); "THIS IS A V 
ERY SHORT PROGRAM" 

IBS 


Helpful Hints: Applesoft uses a screen width of 40 
columns — that is, up to 40 characters can be displayed on 
a single line. Any line longer than 40 characters is 
automatically wrapped around to the next line and 
indented. When you are changing such a program line, 
you must use escape mode if you don’t want the 
automatic indentation copied into your revised line. This 
is what you were doing when you went back into escape 
mode between the R and AM of PROGRAM. When the 
cursor is over the first character of the second line, leave 
escape mode and use Q to finish copying. 

There is also a statement you can use to narrow the 
screen width and to instruct Applesoft to stop adding 
those extra spaces, making it easier to edit your 
programs. This statement is: POKE 33,33. You don’t need 
to learn about it now, but you can find out about it in 
Appendix E and the Applesoft BASIC Programmer’s 
Reference Manual when you are ready. 
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I Getting R Id ofPrograin Lines 

There are times when you decide you don’t like a program 
line and want to get rid of it. Applesoft gives you several 
ways to remove program lines. 

If you have just finished typing the line and change your mind 
about it before you press (return) , there is a control 
( control ) -(x~) deletes a line character you can use: (control ) -(x~). Try it out by typing the 

only before (return) has been line below. Before you press (return) , hold the 

pressed. (control) key while you type (Y). If you forget and press 

(return) before using (control ) -(x~), you’ll have to type MEW 
and try again. 

10 PRINT "WHY AM I DOING THIS?" \ 

As you see in the illustration and on your screen (you are 
doing these exercises, aren’t you?), a slash appears at the 
end of the line when you use (control ) - fx~). When you try to 
list the line, nothing appears. You really have gotten rid of 
that line! 

Now type 

20 PRINT "AN ELEPHANT JUST WALKED IN" 

and press (return) . If you change your mind about this line 
now, there are several alternatives. One is to replace the line 
by typing it over with a different statement, as in 

20 PRINT "THIS IS VERY SILLY" 

However, if you want to eliminate the line entirely, you can 
type 

20 

and it will disappear (after you press (return) , of course). If 
you don’t believe it, type LIST 20. 


Getting Rid of Program Lines 
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The DEL statement removes, or 
deletes, the specified range of 
lines from the program. 


DELETE is a ProDOS command 
that removes the program 
specified by name from a disk. 


Another method is to type the statement 
DEL 20,20 

which instructs the computer to delete a line or lines. 

Since it is obviously easier to type 20 by itself than to type 
DEL 20,20 you may be wondering why the DEL statement 
is so great. It’s not apparent until you want to erase five or 
ten lines of a program. Instead of having to type each line 
number separately, you can type something like 

DEL 10,90 

This deletes every statement with line numbers between and 
including 10 and 90. 

A Note About Delete: The DEL statement in Applesoft 
looks like, but is not the same as, the DELETE command 
used by the Professional Disk Operating System™ 
(ProDOS). 

DELETE is always used to delete entire programs from the 
disk and is always followed by the name of the program 
you want to remove from the disk. 

DEL, as you have just learned, is followed by two line 
numbers separated by a comma. If you get the two 
commands confused and use the wrong one, don’t worry. 
The computer will give you an error message to remind 
you. 

The | delete ) key on your Apple computer’s keyboard is 
not the same as the DEL or DELETE commands. The 
(delete) key is used in some application programs to 
remove words or lines from a program. It is not used by 
Applesoft BASIC. 
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Editing Long Programs 


( CONTROL ) -fs~) stops and 
resumes program listing. 


The full value of using escape mode to make changes does 
not become apparent until you work with long program lines 
and long programs. The more you write your own programs, 
the more you will want to use escape mode. 

There are several advantages to becoming well versed in the 
use of escape mode. One advantage is that it is much faster 
to use when editing an extremely long program line of, for 
example, 230 characters. Another advantage is that it 
makes it easier to merge two programs that have a lot of 
similar lines. Yet another advantage is that you can list a line 
that appears in similar form more than once, make the 
relevant changes, and copy it over for easy reproduction. 

You’ll learn more about these uses of escape mode a bit 
down the line. A handier tool for the present is 

(CONTROL ) -(S~). 

When a long program is listing, the lines scroll by too quickly 
for most of us to read. One way to get around this problem is 
to list portions of a program, by typing, for example, 

LIST 10,100 

and then 

LIST 110,200 

and then 

LIST 210,300 

and so on until you have checked all the program lines. 

Another, easier, way to control scrolling is to use 
(control ) -fs~) to stop scrolling and to resume it after you 
have finished checking the lines on the screen. It takes a 
while to get the knack of pressing (control) and (sj fast 
enough, but it’s worth the trouble and aggravation. 
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Cursor Movement Keys: A Little History 


Eight other keys, besides the four arrow keys, can be used 
for editing. They may seem arbitrary until you know a litle of 
the history behind them. 

When the Apple II was first introduced, there were no (X) 
and (TD keys on the keyboard and there was no escape 
mode. Editing was done by alternating the [esc) key with 
the (X), QD- ©, and (d] keys: (X) moved the cursor to the 
right, QT) moved the cursor to the left, (X) moved the cursor 
down, and (d) moved the cursor up. If, for example, you 
wanted to move the cursor up five and over to the left four 
spaces, you had to type, in succession: 

( ESC ) -[P> [ESC ) -fD> (ESCl -fb> ( ESC ) -[D> (ESC) -fp]- ( ESC) -(B> 

( esc ) -[!> ( esc ) -[F|- | esc ) -(TT) 

Whew! You can see how easy it would be to get confused. 

Later, this method was changed: one press of (esc) was 
enough to get you into escape mode. However, the keyboard 
still had no arrow keys. The four keys (T), (T), ©. and ® 
were used to move the cursor. If you look at the keyboard, 
you’ll notice that those keys form a diamond. Their 
directions are consistent with their positions: (T) moves the 
cursor up, (T) moves it to the left, (jy[) moves it down, and 
(X) moves it to the right. 

Although arrow keys have now been added, (T). QD. ©, 
and [m] still work in escape mode. And you can still use (X). 
(IT) , (cl, and (TT) to move the cursor if you precede each with 
(esc) . If you happen to have learned one of the older 
methods, you can continue to use it and not worry about 
changing to the arrow keys. Or you may find that you like 
one of the older methods better. Figure 3-1 summarizes the 
directions the old keys move the cursor in. 
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Figure 3 - 1 . Cursor Movement Key Directions 



I Summary of Editing Features 


Escape Mode 

To enter escape mode: 

To leave escape mode: 

To move the cursor up: 

To move the cursor down: 

To move the cursor left: 

To move the cursor right: 

To clear from cursor to end 
of line: 

To clear from cursor to end 
of screen: 

To clear entire screen: 


Press (esc) 

Press the ( space ) bar 
Use (X), CD or 0 
Use d), ©or© 

Use Q, 0 or 0 
Use 0, 0 or 0 

Press (esc) -(IT) 

Press (esc) -0 
Press (Esc) -f@l 
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Text Mode 


To delete a character: 

Press Q 

To copy over, or retype a 
character: 

Press Q 

To delete a line before 


(return) has been pressed: 

Press (control )- fx~) 

To stop a program listing: 

Press ( control )-fs) 

To resume a program 
listing: 

Press (CONTROL )-fs~) 

To delete a program line or 
lines: 

Use the DEL statement 

To delete a whole program 
from a disk: 

Use the DELETE command 
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Now that you have a few more editing tools at your 
fingertips, you are probably anxious for more programming 
challenges. This chapter takes a great leap forward, leading 
you through the construction and modification of longer and 
more complicated programs. You will see how programs are 
built piece by piece and how statements work as building 
blocks. 

Don’t expect to be able to do this all yourself right away! 
Learning how to program is a process; the more you work 
with the programs in this manual, the more you’ll understand 
what to do on your own. 


I Constructing a Simple Game 

This section introduces a number of program elements, or 
parts, that are typically used in video games. It 
demonstrates a way to use color in creating visual 
impressions on the screen. 

Before going further, load the program COLORBOUNCE 
from the Applesoft Sampler disk by typing 

LOAD COLORBOUNCE 
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Using Programs on the Applesoft Sampler Disk: 

Whenever you want to use a program on the Applesoft 
Sampler disk, you can select either of two options from 
the Main Menu. 

1. You can select option 3, which puts you directly into 
BASIC. Once you see the prompt character and the 
cursor, you can run or load the program you want. This is 
the method you have used so far. 

2. You can select option 1, the tutorial sample programs. 
When you see the secondary menu, you can type the 
option number of the program you wish to run. When 
program execution stops, you are left in BASIC. From 
there, you can list the program that’s in memory, run it 
again, load another program, or enter a new program. 

Then, to see COLORBOUNCE in action, execute it by typing 
RUN. 

To stop the program, press ( control ) -(c~). Now read the 
next few sections to find out how the program works. Each 
section discusses a different element of the program. 


Multiple Statements on a Line 

Up to now most of the program lines you have worked with 
have contained one statement per line. With this method, 
you might begin a program with (remember, you don’t have 
to do anything but read this section): 

400 REM SET COLOR GRAPHICS AREA 
420 GR 

Program lines are sometimes easier to understand if the 
comments are on the same line as the statement they 
describe. You can combine multiple instructions on one 
numbered program line by using a colon (:) to separate 
them, like this: 

400 GR : REM SET COLOR GRAPHICS AREA 
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Use a colon to separate 
statements in a single program 
line. 


On the other hand, sometimes it is easier if the remark is on 
a different line. COLORBOUNCE uses both methods. 

More Good Reasons for Combining: One of the main 
reasons for combining statements is to save space in long 
programs: the more program lines, the more memory 
used. Another reason is that program execution is faster 
with multiple statements on a line. A third reason is that 
some statements, like IF.. .THEN, control all the 
statements on the same line; combining statements thus 
affects how the program works. 

When you begin writing longer programs of your own, 
you’ll find helpful tips on saving space and time in the 
Applesoft BASIC Programmer’s Reference Manual. 

The colon can be used to separate any two statements. 
Other examples from COLORBOUNCE: 

390 HOME : PRINT "THAT WASN'T BETWEEN 1 
AND 15!" : PRINT 

720 COLOR = 0 : PLOT X,Y 

760 X = NX : Y = NY 

Line 390 combines three related statements: HOME clears 
the screen, the first PRINT displays a message to the user, 
and the second PRINT displays a blank line after the 
message. In line 720, the color is set to black (0) each time X 
and Y are plotted; the section Creating Visual Impressions 
explains more about this. Line 760 changes variable X to NX, 
and variable Y to NY. 

Remarks Last: When a program line uses the colon and 
more than one statement, remarks must be last on the 
line. 
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Creating Motion 

The bouncing ball you see in COLORBOUNCE is really a 
brick plotted and moving on the graphics grid. It is created 
with six variables: 

X represents the starting position of the back-and-forth 
motion 

Y represents the starting position of the up-and-down 
motion 

XV represents the velocity of X 
YV represents the velocity of Y 

NX represents the changing position of X (NX = X + XV) 
NY represents the changing position of Y (NY = Y + YV) 

The program lines that introduce these variables in 
COLORBOUNCE look almost the same as the descriptions 
you just read. The use of clear REM statements can really 
help. 

440 X = 0 : REM SET STARTING POSITION OF 

BACK-AND-FORTH VARIABLE 
460 Y = 5 : REM SET STARTING POSITION OF 
UP-AND-DOWN VARIABLE 
480 XV = 2 : REM SET X VELOCITY 

500 YV = 1 : REM SET Y VELOCITY 

520 REM CALCULATE NEW POSITION 
540 NX = X + XV : NY = Y + YV 

Helpful Hint: If you find it confusing to have more than one 
statement on a program line, it is OK to use the longer 
method. In this portion, for example, you would have 11 
lines instead of 6. 
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Screen Boundaries 


When you first began plotting points on the graphics grid 
you learned two crucial pieces of information: there are 40 
horizontal and 40 vertical points on the grid and the 
numbering system of the grid goes from 0 to 39 in both 
directions. To keep a bouncing ball within these limits, you 
have to do two things: 

1. Set some limits in the program so the ball doesn’t appear 
to move off the screen. 

2. Change the direction of the ball when it reaches the edge 
of the screen. 

The COLORBOUNCE lines that follow do both these things. 
Look at them carefully so you understand how they work. 

560 REM IF BALL EXCEEDS SCREEN EDGE, THEN 
BOUNCE 


580 

IF 

NX 

> 

39 

THEN 

NX = 39 

: XV 

600 

IF 

NX 

< 

0 

THEN 

NX = 0 : 

XV = 

620 

IF 

NY 

> 

39 

THEN 

NY = 39 

: YV 

640 

IF 

NY 

< 

0 

THEN 

NY = 0 : 

YV = 


Figuring this out is not easy. One thing to remember is that 
variable values are not static: when a line says XV = -XV, the 
contents of the variable actually change to a negative value. 

In other words, when the ball reaches the limit of the screen, 
39, line 580 changes XV to a negative XV. Then when line 
540 is reached in the next loop, NX becomes 38. In the loop 
after that, NX becomes 37, and so on, until the ball reaches 
the other screen edge, at which point 1 is added to the value 
of NX with each loop. This is how the direction is changed 
back and forth. 
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Creating Visual Impressions 

By alternating between black and a color for the ball each 
time a new position is plotted for X and Y, you can make it 
look as if the ball is being erased, adding to the visual effect 
of the ball’s motion. This is done in COLORBOUNCE with 
the following lines: 

660 REM PLOT NEW POSITION 
680 COLOR = 7 : PLOT NX, NY 
700 REM ERASE OLD POSITION 
720 COLOR = 0 : PLOT X,Y 
740 REM SAVE CURRENT POSITION 
760 X = NX : Y = NY 
780 GOTO 540 

The PLOT NX, NY statement in line 680 plots a brick 
(otherwise known as a ball) in the specified color at the new 
position set by NX and NY. When line 720 plots X and Y, it is 
really plotting the old coordinates NX and NY, which are 
saved after plotting the previous brick (line 760). The 
statement COLOR = 0 in line 720 sets color to black, which 
because the plotting happens so fast, makes it look as if the 
brick has been erased. The next loop, of course, resets the 
color and plots NX and NY in that color (line 680). The 
alternating between black and color in each loop adds to the 
appearance of motion. 

If the order of these statements doesn’t make sense to you, 
try moving them around and running the program with your 
changes incorporated. 


The Whole Thing 

Here is a listing of COLORBOUNCE, as it appears on the 
Applesoft Sampler disk. Depending on what model of Apple II 
you are using, your screen may not look exactly like the 
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screen details in this tutorial. List COLORBOUNCE to 
compare the versions. You can either list it in sections, such 
as 

LIST 400,580 
LIST 600,780 

or you can list the whole thing and use ( control ) - fs~) to 
stop and start the listing. Go ahead, try it! 

Figure 4- 1. The COL ORBOUNCE Program 
400 GR : REM SET COLOR GRAPHICS AREA 
420 HOME : REM CLEAR TEXT AREA 
440 X = 0 : REM SET STARTING POSITION OF 
BACK & FORTH VARIABLE 
460 Y = 5 : REM SET STARTING POSITION OF 
UP & DOWN VARIABLE 
480 XV = 2 : REM SET X VELOCITY 
500 YV = 1 : REM SET Y VELOCITY 

520 REM CALCULATE NEW POSITION 
540 NX = X + XV : NY = Y + YV 
560 REM IF BALL EXCEEDS SCREEN EDGE, THEN 
BOUNCE 

580 IF NX > 39 THEN NX = 39 : XV = -XV 

600 IF NX < 0 THEN NX = 0 : XV = -XV 

620 IF NY > 39 THEN NY = 39 : YV = -YV 

640 IF NY < 0 THEN NY = 0 : YV = -YV 

660 REM PLOT NEW POSITION 

680 COLOR = 7 : PLOT NX, NY 

700 REM ERASE OLD POSITION 

720 COLOR = 0 : PLOT X,Y 

740 REM SAVE CURRENT POSITION 

760 X = NX : Y = NY 

780 GOTO 540 

Here’s how COLORBOUNCE works, in summary: the 
program plots a brick, erases it, plots another brick one 
column over, erases that, and so on. When the edge of the 
screen is reached (in lines 580-640, when NX and NY are 
greater than 39 and when NX and NY are less than 0), the 
program reverses the plotting direction. 
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I Making the Program Interact with Users 

Suppose you decide to change COLORBOUNCE so that a 
new ball color can be entered each time the program is run. 
One way of doing this is to change line 680, run the program, 
and change line 680 again. But that would be a lot of trouble. 
And it would be difficult to explain if you wanted to show a 
friend how. 

A better way is to use the INPUT statement to let the user 
interact with the program. As you recall from Chapter 2, an 
INPUT statement names a variable and asks the person 
using the program to enter a value for it from the keyboard. 

You have to be careful how you word the statement because 
COLOR is a reserved word. If, for example, you added the 
line 

350 INPUT COLOR 

the program would get stuck: COLOR can’t be used as a 
variable name. You could, however, write line 350 as 

350 INPUT "COLOR? ";HUE 

and change line 680 to define COLOR = as variable HUE: 

680 COLOR = HUE : PLOT NX, NY 

Add these lines to COLORBOUNCE now. Then run it to see 
how the lines work. (When the program executes line 350, 
the word COLOR followed by a question mark (?) appears on 
the screen. The cursor keeps blinking until someone types a 
number and presses (return ) .) 


1081 


Chapter 4: Lots of Graphics 


You may know what to do when you see the question mark. 
However, your friend may not. So it is a good idea to have 
the program tell your friend (the user) what is expected. 
Adding some PRINT statements and changing to text mode 
at the beginning of the program will do the trick: 


280 

REM SET TEXT MODE 



300 

TEXT : 

HOME 



310 

PRINT 

"TO SELECT A COLOR 

FOR" 


320 

PRINT 

"THE BOUNCING BALL, 

FIRST 

TYPE 

330 

PRINT 

"IN ANY NUMBER FROM 

1 TO 

IS." 

34 0 

PRINT 

"THEN PRESS THE KEY 

LABELED 


RETURN 

PRINT 




It also would help to put a more specific message in the 
INPUT statement: 

350 INPUT "WHAT COLOR WOULD YOU LIKE THE 
BALL TO BE (1-15)? ";HUE 

Writing the Input Statement: Here is a brief review of the 

rules you learned in Chapter 2 for writing an INPUT 

statement: 

• The message you want the user to get must be in 
quotation marks in an INPUT statement. 

• When the INPUT statement contains a message, the 
computer doesn’t add a question mark, as it does if 
there is no message. If you want a question mark to 
appear, you must include it in the INPUT message. 

• Putting a space after the question mark, within the 
quotation marks, sets the question off from the answer. 

• There must be a semicolon between the message and 
the variable name. 

Adding the new lines 280 to 350 to COLORBOUNCE makes 
the program friendlier for users. But there still are some 
potential pitfalls for people who are not used to computers. 
What if someone makes a mistake and then presses 


1109 


Making the Program Interact With Users 


(return) ? Instant error messages and loud beeps! It may be 
all right for a programmer like you to deal with such jargon 
as 7SYNTAX ERROR, but an innocent user shouldn’t have 
to. 

If too great or too small a number is entered, the program 
either lets the ball move to the right side of the screen and 
then stops, or the message 

? ILLEGAL QUANTITY ERROR IN 680 

appears on the screen and then the program stops. For the 
most part, your friends won’t know how to restart the 
computer — and shouldn’t have to. You can avoid this 
problem by making the program check the number typed in 
by the user before proceeding. These lines will do it: 

370 REM IS HUE OF BALL IN RANGE? 

380 IF HUE > 0 AND HUE < 16 THEN GOTO 400 

390 HOME : PRINT "THAT WASN'T BETWEEN 1 

AND 15!" : PRINT 
395 GOTO 310 

If the character entered is not a number, 

7REENTER 

9 

appears on the screen. You’ll learn how to modify the 
program to avoid this in Chapter 5. 

It is good programming practice to make a program as 
foolproof as possible. Each time you use an INPUT 
statement, you should make your program check what the 
user enters so the program doesn’t fail in any way. Dealing 
with the untutored user (and you must assume that users are 
not programmers) is an art in itself. Use of specifically 
worded INPUT statements and careful checking of the user’s 
response are always required. 

Now that you have made some changes to COLORBOUNCE, 
list it again. Make sure that you have added all the new lines 
(280-395), that you have changed line 680, and that all the 
lines are typed correctly. Run the new version. Then save it 
on your formatted disk as NEW.COLORBOUNCE. 
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A Reminder About Saving: Each time you save a different 
version of a program, you must give the version a new 
name. Otherwise the old version will be written over and 
lost. 

Your new name can be a maximum of 15 characters long. 
The first must be a capital letter; the rest can be any 
combination of capital letters, digits, and periods. Be sure 
your name does not contain any spaces or punctuation 
other than the period. 

Pause 


Creating Sounds 


Clicks, beeps, tocks, and various buzzes are easily 
generated by the Apple computer. You can make sounds on 
your computer if you tap it, scratch your fingers across it, or 
drop it, but the sounds you are about to make are produced 
by programming it. 


Using PEEK(- 16336) 

To construct a sound-producing program on the Apple 
computer, you need to type this formula: 

NEW 

150 SOUND = PEEKC - 16336) 

There is no easy explanation for this formula. The number 
-16336 is the memory address of the computer’s speaker 
and is built into the electronic circuitry of the computer. 

A Word on Memory Addresses: The Apple computer has 
memory addresses that range from 0 to 65535. 

The range of memory addresses is determined by the size 
of memory in the machine. The Apple computer has 64 
kilobytes { 64K) of addressable memory available at one 
time, which is equal to 65536 bytes. Each byte has its own 
memory address. 
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PEEK is a function. In Applesoft a function is something that 
takes one or more numbers and performs some operation 
on them to yield a single value. Applesoft has a number of 
built-in arithmetic functions (like SQR, which finds the 
square root of a number); some other functions can be 
derived. The Applesoft BASIC Programmer’s Reference 
Manual discusses all of Applesoft’s functions. 

The number that the function uses (-16336 in this case) is 
called its argument and is always put in parentheses after 
the function name. The number the function finds is said to 
be returned to the program. PEEK returns the numeric value 
of the contents of any byte in memory. You supply the 
address of that byte when you provide the number in 
parentheses; in this case, the address is -16336. 

At most locations PEEK only returns a numerical value, but 
at some locations, such as -16336, it can cause something 
to happen. In this case, it causes the speaker in the Apple 
computer to make a click. Every time the program executes 
this statement, you will hear a barely audible click. Run the 
program and listen to your computer closely. 

Now add this line: 

160 GOTO 150 

and run the program. No problem hearing this! 

To make your program buzz for a limited period of time, add 
these statements: 

140 FOR BUZZ = 1 TO 100 
160 NEXT BUZZ 

A tone is generated by a rapid sequence of clicks. Any 
program that uses PEEK(-16336) repeatedly generates 
some sort of noise. 

Since -16336 is such a bother to type, here is a statement 
that will allow you to substitute the variable S for the 
number. Add this to your sound-producing program: 

100 S = -16336 
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The PEEK function returns the 
contents, in decimal form, of the 
byte at the memory address 
specified by the argument. 
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To produce a nice, resonant click, change line 150 to 

150 SOUND = PEEKCS) - PEEKCS) + PEEKCS) - 
PEEKCS) + PEEKCS) - PEEKCS) 

Different numbers of PEEKS in the statement produce 
different qualities of sound. Try some variations. See what 
happens when you use all -PEEK(S)s. How does the sound 
change when you use a lot of +PEEK(S)s? 

For a more buzzy tone, put one of your variations into a loop. 
In general, the faster the loop, the higher the pitch. 

Fast Loops and Slow Loops: Applesoft does arithmetic 
operations at different speeds: it takes longer to do 
subtraction than to do addition and longest to do division. 
So the fastest PEEK loop is composed of all +PEEK(S)s. 

A slower loop is composed of -PEEK(S)s. The slowest loop 
would use division: PEEK(S) / PEEK(S) / PEEK(S), for 
example. A lot more information on PEEKS can be found 
in the Applesoft BASIC Programmer’s Reference Manual. 

To produce even higher tones on your Apple, try these lines: 
NEW 

40 FOR PAUSE = 1 TO 2500 : NEXT PAUSE 
50 S = PEEK C - 1 6336) : GOTO 50 

Remember, (cqntrql) -(c] stops program execution. As you 
might guess, line 40 causes a pause before line 50 is 
executed. The GOTO statement in line 50 causes a 
continuous sound after the pause. 

To put these sound tricks to good use, load your most recent 
version of COLORBOUNCE into the computer. List it, and 
study the lines. Then try to add a sound for each time the 
ball bounces off a wall. 

One possible solution is given in the next section, but try to 
work it out for yourself. 

Hint: A bounce occurs whenever XV and Y V change value 
(sign) and direction. 
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I Noise for the bouncing Ball 

Here is one way to make the bouncing audible. Add these 
lines to COLORBOUNCE: 

240 REM SET S TO ADDRESS OF SPEAKER 
260 S = -16336 

580 IF NX > 39 THEN NX = 39 : XV = - 

XV : FOR B = 1 TO 5 : BOUNCE = PEEKCS) 

+ PEEKCS) + PEEKCS) : NEXT B 
600 IF NX < 0 THEN NX = 0 : XV = - 

XV : FOR B = 1 TO 5 : BOUNCE = PEEKCS) 

+ PEEKCS) + PEEKCS) : NEXT B 
620 IF NY > 39 THEN NY = 39 : YV = - 

YV : FOR B = 1 TO 5 : BOUNCE = PEEKCS) 

+ PEEKCS) + PEEKCS) : NEXT B 
640 IF NY < 0 THEN NY = 0 : YV = - 

YV : FOR B = 1 TO 5 : BOUNCE = PEEKCS) 

+ PEEKCS) + PEEKCS) : NEXT B 

You can see the advantage of having multiple statements on 
a single line in a program like this. The sounds are directly 
connected to the values of XV and YV so it makes sense (and 
works more efficiently) to add them to the already existing 
lines. 

Now try your own sounds. Why not make a different sound 
bounce off each wall? When you find a sound combination 
you like, don’t forget to save a new version of 
COLORBOUNCE with the noisemaking lines included. 

The remainder of this chapter introduces some new 
programs and concepts; we’ll return to COLORBOUNCE in 
Chapter 5. 

Pause 
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I Generating Random Numbers 

Here’s another Applesoft function. Try it (remember you can 
stop it when you want with (control ) - (cT) ): 

NEW 

100 PRINT RND(I) 

110 GOTO 100 
RUN 

The arithmetic function RND 
returns a random real number 
greater than or equal to 0 and 
less than 1. 

The numbers generated by this program are random 
decimal fractions between 0 and 1. Any argument (the 
number in parentheses) greater than 0 returns random 
decimal fractions between 0 and 1. Try, for example, 
changing line 100 to 

100 PRINT RND(6) 

Another Argument: Although you won’t be doing it in this 
tutorial, you can produce different effects by using an 
argument of 0 or less than 0. See the Applesoft BASIC 
Programmer’s Reference Manual for more information. 


Random Integers 

Random decimal fractions between 1 and 0 can be a little 
clumsy. Often integers (numbers like 3, 6, and 10) are easier 
to use. To get random integers from 0 to 9 you have to 
change the program. Type 

NEW 


90 

REM ASSIGNS RND 

NUMBER TO X 

100 

X = 

RNDC 1) 


1 1 0 

REM 

MULTIPLIES 

X BY 10 

120 

X = 

X * 1 0 


130 

REM 

CHOPS OFF 

THE FRACTION 

140 

X = 

INTCX) 


150 

PRINT X 


160 

GOTO 

100 



Generating Random Numbers 1 115 


RND in line 100 stands for random. The RND function 
produces random numbers. Each time you run it, you’ll see a 
different sample of numbers. Try it! 
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The int function returns the In line 140 you’ll notice a new function, INT, the integer 

largest integer less than or function. The statement X = INT(X) returns the largest 

equal to the given argument. integer that is less than or equal to the value of X. For 

instance, if the value of X is 3.6754, then INT(X) is equal to 3; 
if the value of X is -45.12345, then INT(X) is equal to -46. The 
parentheses after INT can contain any arithmetic expression 
or numeric variable. 

Now run the program. Does it work the way you expected? 

To change the program so that it generates numbers from 1 
to 10 (instead of from 0 to 9) add this line to your program: 

145 X = X + 1 

This program may seem a little complicated at first. To see 
what happens step by step add lots of PRINT statements. 
The following program shows how. However, you don’t have 
to type in the additions. The program RANDOM on the 
Applesoft Sampler disk is the same as what you see. 

Figure 4-2. The RANDOM Program 

90 REM ASSIGNS RND NUMBER TO X 

100 X = RND(1) : PRINT "X = RNDC1)",X 

105 PRINT 

1 1 0 REM MULTIPLIES X BY 1 0 

120 X = X * 10 : PRINT "X = X * 10", X 

125 PRINT 

130 REM CHOPS OFF THE FRACTION 

140 X = INTCX) : PRINT "X = INT(X)",X 

145 PRINT 

150 REM ADDS 1 TO THE VALUE OF X 
160 X = X + 1 : PRINT "X = X + 1", X 
170 PRINT : PRINT 

180 FOR PAUSE = 1 TO 2000 : NEXT PAUSE 

190 GOTO 100 
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Load and run this program and see what happens. To 
change the way the numbers are displayed, you can remove 
the comma (,) and the X from the end of line 160, change line 
170, and add line 175, like this: 

160 X = X + 1 : PRINT "X = X + 1" 

170 PRINT X 
175 PRINT 

Amazingly enough, this whole program can be condensed to 
just one line: 

100 PRINT I NT ( 10 * RNDC1) ) + 1 : GOTO 100 

Study this line until you figure out how its parts correspond 
to each of the lines in RANDOM. 


Simulating a Roll of the Dice 

Now you can use what you’ve learned about random 
numbers to make a program simulate a toss of the dice. 

NEW 


100 

PRINT 

"WHITE DICE", 


1 1 0 

PRINT 

INT (6 * RNDC1) 

> + 1 

120 

PRINT 

"RED DICE", 


130 

PRINT 

INT (6 * RNDC1) 

) + 1 


This program generates random integers from 1 to 6 for 
each die. To simulate a roll of each of the dice, run the 
program. What could you add to the program so you don’t 
have to execute it over and over? Can you write a program 
that uses these rolls of the dice to play a game? Try it. 

Now try writing a one-line program that generates random 
numbers from 1 to 50. From 0 to 25. Make up your own 
numbers. Remember to add 1 to the random function if 
don’t you want to generate zeros. 

Helpful Hint: The number RND is multiplied by (for 
instance, 50 in 50 * RND(1)) represents the range of 
numbers to be generated. The number added to RND (for 
instance, 1 in (6 * RND(1)) + 1) is the smallest number 
generated: if 1 is added, the lowest number will be 1 ; if 3 is 
added, the lowest number will be 3; if nothing is added, 
the lowest number will be 0. 
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Random Graphics 

Here’s a colorful way to combine the RND function with 
some graphics statements: 

NEW 

200 GR 

210 REM CHOOSE A RANDOM COLOR 
220 COLOR = INT (16 * RNDC1) > 

230 REM CHOOSE A RANDOM POINT 
240 X = INT (40 * RND( 1 ) ) 

250 Y = INT (40 * RND( 1 ) ) 

260 REM PLOT THE RANDOM POINT 
270 PLOT X, Y 
280 REM DO IT AGAIN 
290 GOTO 220 

Enter and run this program. Then try using RND in other 
programs. Can you write a program that draws random lines 
in random colors across the screen? How about a program 
that shades the graphics screen with random colors? 

For Another Example: The RND function is used in many 
games. A somewhat longer example of its use is in 
SCRAMBLER on the Applesoft Sampler disk. It is 
discussed in Appendix E, “More Programs to Play With.” 


I developing a Simple Animation Program 

This section takes you step-by-step through the process of 
developing a simple, well-structured animation program. 
Along the way you will learn techniques that will be useful in 
any programming you do. 
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The programming process begins with an idea: you want to 
draw a horse as part of a game you are developing. So you 
write this program to draw a blue horse with orange feet and 
a white face: 

MEW 

1000 REM DRAW BLUE HORSE WITH WHITE 



FACE 

AND ORANGE FEET 

1010 

GR 



1 020 

COLOR 

= 2 

: REM DARK BLUE 

1030 

PLOT 

15,15 


1040 

HLIN 

15,17 

AT 16 

1050 

COLOR 

= 9 

: REM ORANGE 

1 060 

PLOT 

15,17 


1 070 

PLOT 

17,17 


1080 

COLOR 

= 15 

: REM WHITE 

1090 

PLOT 

14,15 



Figure 4-3. A Blue Horse 
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There is nothing wrong with this program: it draws a blue 
horse with orange feet and a white face. But suppose you 
wanted to draw another horse somewhere else on the 
screen. You could rewrite this program with new values for X 
and Y, but that is a bother. There should be some way of 
using the same program to put a figure anywhere on the 
screen without having to rewrite it each time. 

You learned in COLORBOUNCE that variables can be used 
to change the velocity and direction of points plotted on the 
graphics screen. A similar method can be used to move the 
horse to a different place on the screen. 

You can move a point that is at coordinates A,B to the right 
by adding to the value of the first coordinate, A. If A = 4 and 
B = 17, you could move point A,B ten columns to the right 
by adding 10 to the first coordinate, making the point 14,17. 

Adding to and subtracting from 
coordinates is, in essence, the 
basis of all animation in 
programming. 

With these ideas in mind, rewrite the horse program to place 
the horse at almost any point X,Y on the screen. Why almost 
any point? Because if the center of the horse is plotted at the 
edge of the screen, part of the horse goes off the screen, 
and you receive an error message. 


Here is 

part of an improved program: 

NEW 

1000 

REM PUT A HORSE 

SCREEN 

ANYWHERE ON THE 

1010 

COLOR = 2 : 

REM 

DARK BLUE BODY 

1020 

PLOT X, Y - 

1 : 

REM CENTER OF HORSE 

1 030 

HLIN X, X + 

2 AT 

Y : REM REST OF BODY 

1040 

COLOR = 9 : 

REM 

ORANGE FEET 

1 050 

PLOT X, Y + 

1 : 

REM FRONT FOOT 

1 060 

PLOT X + 2, 

Y + 

1 : REM REAR FOOT 

1070 

COLOR = 15 

: REM 

WHITE HEAD 

1 080 

PLOT X - 1 , 

Y - 

1 


Likewise, a point moves left if you subtract from the first 
coordinate (or add a negative value). A simple experiment 
shows that adding to and subtracting from the second 
coordinate moves points down and up, respectively. 
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Notice that the GR statement has been left out. This part of 
the program is supposed to put several horses on the 
screen. A GR statement at 1005 would clear the screen 
before each new horse was drawn. 

This program can’t be run as it is. You must set the graphics 
mode and choose X and Y: 

20 GR 

30 REM FIRST HORSE CENTER 
40 X = 12 
50 Y = 35 


Introducing Subroutines 

When you execute your program, you only get one horse at 
the desired location before the program ends. You still want 
to put two horses on the screen. What if you could write a 
program like this: 

60 DO THE PORTION OF THE PROGRAM AT LINE 
1000 AND THEN COME BACK TO LINE 70 
70 REM SECOND HORSE CENTER 
80 X = 33 
90 Y = 2 

100 DO THE PORTION OF THE PROGRAM AT LINE 
1000 AGAIN AND THEN END 

Wouldn’t that be nice and easy? The problem is that the 
computer can’t read those strange instructions in lines 60 
and 100. It can, however, read the statement 

G0SUB 1000 


A subroutine is a segment of a 
program that is used over and 
over by the main routine of the 
program. 

GOSUB causes a program to 
branch to the line number given, 
execute all lines until it 
encounters a RETURN 
statement, and then to branch 
back to the statement 
immediately after the GOSUB. 


A program such as the one starting at line 1000 is called a 
subroutine. GOSUB 1000 tells the computer to go to the 
subroutine beginning at line 1000 and execute all the 
following lines until it encounters a RETURN statement. It 
also tells the computer to come back to the line that follows 
the GOSUB statement when it is finished with the 
subroutine. 
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To make a complete subroutine in your horse-drawing 
program, add the line 

1090 RETURN 

Combining all these lines, you have that “what if you only 
could” program: 

20 GR 

30 REM CHOOSE CENTER OF THE FIRST HORSE 
40 X = 12 
50 Y = 35 
60 GOSUB 1000 

70 REM CHOOSE CENTER OF THE SECOND HORSE 
80 X = 33 
90 Y = 2 
100 GOSUB 1000 

1000 REM PUT A HORSE ANYWHERE ON THE 
SCREEN 

1010 COLOR = 2 : REM DARK BLUE BODY 

1020 PLOT X, Y - 1 : REM CENTER OF HORSE 

1030 HLIN X, X + 2 AT Y : REM REST OF BODY 

1040 COLOR = 9 : REM ORANGE FEET 

1050 PLOT X, Y + 1 : REM FRONT FOOT 

1060 PLOT X + 2, Y + 1 : REM REAR FOOT 

1070 COLOR = 15 : REM WHITE HEAD 

1080 PLOT X - 1, Y - 1 

1090 RETURN 

If you run the program, you get the error message 

7RETURN WITHOUT GOSUB ERROR IN 1090 

You’ll find out how to fix the program to avoid this error 
shortly. Keep reading! However, despite the error message, 
the program runs fine. You have just created a horse- 
drawing routine. Now use the statement 

GOSUB 1000 

to draw one of these special horses at whatever X,Y location 
you choose. 
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The debugging statement 
TRACE indicates the path the 
program follows by displaying 
the line number of each 
statement as it is executed. 


Tracing Program Flow 

To follow the program’s flow, or path of execution, you can 
invoke a special feature called TRACE. This statement will 
show you why the computer gave an error message when the 
horse-drawing program was executed. Add this line: 

10 TRACE 

and, for a moment, delete line 20 with 
DEL 20,20 

To leave the graphics mode and clear the screen, type TEXT 
and HOME. Then run the program. 


Figure 4-4. Using TRACE 

#10 #30 #4 0 #50 #60#1 000# 1 0 1 0 #1 020 #1 
030 #1040 #1050#1060 #1070 #1080#1090 
#70 #80 #90 #100#1000 #1010#1020 #1030 
#1040 #1050 #1060#1070 #1080 #1090#10 
00 #1010 # 1 020 # 1 030 #1040 #1050#1060 # 
1070 #1080 #1090 

7RETURN WITHOUT GOSUB ERROR IN 1090 
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TRACE shows that the program begins at line 10, the 
smallest line number, and continues until it reaches line 60, 
which sends it to the subroutine. It executes the subroutine, 
returns to the main program at line 70, then executes the 
subroutine again. When it reaches line 1090 again, it goes 
back to line 1000 — since that is the statement immediately 
after the GOSUB — and executes the subroutine again. ..and 
again and again. This is where the problem occurs. Do you 
understand the error message now? 

To remedy the problem of endless repetition, add this new 
line to the program: 

The END statement causes a 110 END 

program to cease execution and 

returns control to the user. When the program gets to line 1 10, it does just what the line 

says: it ends. Run the program once more: no error message 
this time. Because the RETURN statement causes the 
program to branch to the statement immediately following 
the most recently executed GOSUB, line 110 is reached and 
the program stops. 

As you see, TRACE is extremely handy when you are having 
problems with a program. By adding TRACE, you can find 
out where the problem is. 

If you want to trace only part of a program, use the 
The notrace statement turns NOTRACE statement where you want the trace to end. Add 
off trace. this line: 

65 N0TRACE 

and the program is traced only up to the execution of line 65. 

Other Times, Other Traces: TRACE also can be issued 
when you are working without line numbers in immediate 
execution. Type TRACE and then RUN. It is not a good 
idea to try it out now, unless you save the current version 
of the horse-drawing program first. 

Once you have issued the TRACE statement, whether in 
immediate or deferred execution, the program is traced 
every time you run it. To stop TRACE you must issue a 
NOTRACE or remove the TRACE statement from the 
program. 
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Now that you have finished tracing the horse-drawing 
program, remove lines 10 and 65, and reinsert line 20. That 
way you can run this program in the future without having it 
traced each time. 


Anticipating and Heading Off Errors 

It is important to anticipate possible errors when writing 
programs so that problems are avoided. One potential 
problem with the horse-drawing subroutine is that some 
values of X and Y cause the horse to go off the edge of the 
screen. You can prevent this by adding a set of statements 
such as: 

1000 REM PUT A HORSE ANYWHERE WITHIN 
SCREEN 

1012 IF X < 1 THEN X = 1 

1014 IF X > 37 THEN X = 37 

1016 IF Y < 1 THEN Y = 1 

1018 IF Y > 38 THEN Y = 38 

The format of these lines should be familiar: it is similar to 
that used in COLORBOUNCE. Note that line 1000 is slightly 
different from the old line 1000; the rest of these lines are 
additions to the subroutine. 

To keep the horses within the screen limits, the values of X 
and Y are compared with the values of the graphics grid. 
(Why should the maximum Y value be 38, while X must be 
limited to 37?) If the computer attempts to locate a horse off 
the screen, the program causes it to move the horse to the 
nearest edge. 

There are other programming strategies you can use to keep 
the horses within the screen limits and thus prevent errors. 
For example, you can use the RND statement, like this: 


3000 

REM 

CHOOSES A RANDOM 

PAIR 


COORDINATES 



30 1 0 

X = 

INT CRND(1) 

* 37) 

+ 1 

3020 

Y = 

INT (RNDC1) 

* 38) 

+ 1 

3030 

RETURN 
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You can also write the program to give an error message and 
stop the program if a horse strays out of bounds. However, 
the first two solutions have the advantage of not stopping 
the program. 


Using Variables for Flexibility 

As you have already discovered, using variables instead of 
specific number assignments for colors gives a program 
more flexibility. If, for example, you wanted to add a second 
player to your game and give that player a horse of a 
different color, you could replace line 1010 COLOR = 2 with 

1010 COLOR = BODY 

Similarly, you could write 

1040 COLOR = FEET 
1070 COLOR = FACE 

Then the main routine would change to: 

20 GR 

30 REM FIRST PLAYER'S HORSE COLOR 

40 BODY = 2 : REM DARK BLUE 

50 FEET = 9 : REM ORANGE 

60 FACE = 15 : REM WHITE 

70 REM FIRST PLAYER'S HORSE CENTER 

80 X = 15 

90 Y = 30 

100 GOSUB 1000 

and so on. 

Now add the lines for the color of the second player’s horse. 
Be sure to include an END statement. Run the program to 
see the two horses displayed. Change your program lines 
until you have color combinations you like. 

Easy Changes: This is a good opportunity to use some of 
the editing skills you learned in Chapter 3 under Editing 
Long Programs. One of the advantages of using escape 
mode is that you can list a line that appears in similar form 
more than once in the program, make the relevant 
changes, and copy it over for easy reproduction. Try that 
now — it will save you a lot of typing. 


Chapter 4: Lots of Graphics 


Adding Subroutines for Efficiency 

To refine the horse-drawing program even more, use 
subroutines that assign the colors for each player’s horse 
and then have each of those subroutines go to (or call) the 
horse-drawing subroutine in turn. Here are two examples: 

2000 REM DRAWS BLUE HORSE WITH ORANGE FEET 
AND WHITE FACE 

2010 BODY = 2 : REM DARK BLUE 
2020 FEET = 9: REM ORANGE 
2030 FACE = 15: REM WHITE 
2040 GOSUB 1000 
2050 RETURN 

2500 REM DRAWS ORANGE HORSE WITH PINK FEET 
AND GREEN FACE 
2510 BODY = 9: REM ORANGE 
2520 FEET = 11: REM PINK 
2530 FACE = 4 : REM DARK GREEN 
2540 GOSUB 1000 
2550 RETURN 

When you add subroutines 2000 and 2500, you also must 
change the main routine. To put a blue horse with a white 
face and orange feet at 10,1 1, change lines 30-60 as follows: 

30 REM FIRST PLAYER'S HORSE 
40 X = 10 

50 Y = 1 1 
60 GOSUB 2000 

To put an orange horse at 19,2 change lines 70-100 to 

70 REM SECOND PLAYER'S HORSE 
80 X = 19 
90 Y = 2 
100 GOSUB 2500 

The horse-drawing subroutines at lines 2000 and 2500 call 
another subroutine that begins at line 1000. Things become 
quite efficient at this stage. The three subroutines make it 
very easy to put up an attractive display of horses. 
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A Well-Structured Program 

Here is the main routine of your horse-drawing program. At 
various points it passes execution to three subroutines. To 
run the program, you can change the program you have 
been typing in to match what you see or load HORSES 
(which is a corrected version) from the Applesoft Sampler 
disk. 


Appendix E introduces more 
examples of subroutines and 
how to structure them for 
maximum program efficiency. 



Figure 4-5. The HORSES Main Routine 

10 REM SET GRAPHICS MODE 
20 GR 

30 REM CHOOSE A RANDOM POINT 
40 GOSUB 3000 

50 REM PUT A BLUE HORSE THERE 
60 GOSUB 2000 

70 REM CHOOSE ANOTHER RANDOM POINT 
80 GOSUB 3000 

90 REM PUT AN ORANGE HORSE THERE 

100 GOSUB 2500 

110 REM DO IT ALL AGAIN 

120 GOTO 30 

This is how a main routine should look if you are writing well- 
structured programs: mostly REMs and GOSUB statements. 
The work should be done in relatively short subroutines, 
each of which is easy to write and complete in itself. 

If the workings of this program are still a little unclear to you, 
use TRACE to follow the program flow. First type TEXT and 
HOME. Then add 

5 TRACE 
130 NQTRACE 

and then run the program. Compare what you see on the 
screen with the program listing until you can follow the 
subroutines. 

Pause 
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I High-Resolution Graphics 

So far, you have been using low-resolution graphics. This 
section will introduce you to another kind of graphics called 
high-resolution graphics. 


The horizontal coordinates 
range from 0 to 279; the vertical 
coordinates range from 0 to 
159. 


Figure 4-6. High-Resolution Graphics Screen Grid 


You can draw with much more detail on the high-resolution 
graphics grid than you can on the low-resolution grid. The 
high-resolution graphics screen measures 280 by 160 
plotting points. The horizontal coordinates start with 0 at the 
left of the screen and end with 279 at the right. Likewise the 
vertical coordinates go from 0 at the top of the screen to 159 
at the bottom. 


0 50 100 150 200 270 



] 

m 
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High-Resolution Graphics Commands: High-resolution 
graphics commands are often the same as the 
corresponding low-resolution graphics commands except 
for the addition of an H (for high). Your familiarity with low- 
resolution graphics will be helpful to you in this section. 


Type 


HGR 


High-resolution graphics, set by 
HGR, uses a screen grid of 280 
by 160 plotting points and 
leaves four lines for text at the 
bottom. HGR clears the screen 
to black. 


to get into high-resolution graphics mode. This statement 
clears the screen to black, leaving four lines at the bottom 
for text. As in low-resolution graphics, high-resolution 
graphics allows you to use vertical coordinates that would 
be in the text area (191 is the maximum), but these points 
are not shown on the screen unless you do some tricky 
maneuvers. See the Applesoft BASIC Programmer’s 
Reference Manual tor more information. 


HCOLOR= sets the 
high-resolution graphics color 
to the number specified. 


Helpful Hint: If the cursor is not visible, press ( return | 
until it appears near the bottom of the screen. 

The color of the dots you plot in high-resolution graphics is 
determined by the HCOLOR= statement. As in low- 
resolution graphics, the Apple computer uses whatever 
color you assign until you change it. 

High-resolution graphics is truly wonderful, but you have to 
make some sacrifices to use it. Fewer colors are available, 
and the colors vary according to their positions on the 
screen. Look at Figure 4-7 to see which number goes with 
which color. 
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0 blackl 

1 green 

2 violet 

3 whitel 

4 black2 

5 orange 

6 blue 

7 white2 


Figure 4-7 . High-Resolution Graphics Colors and Numbers 
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To try out high-resolution graphics, once you have issued the 
HGR statement, type 

HCOLOR = 2 
HPLOT 130,100 
HPLOT 50,50 

The hplot statement plots Plot a few more random points. Notice how much smaller 
dots and lines in high-resolution the plotted points appear in high resolution than in low 

specified value of 6 hcolor resolution. This mode makes it possible to create images 

with much more detail than you can achieve in low 
resolution. 


Drawing Lines 

Drawing lines is even easier in high-resolution graphics than 
in low-resolution graphics. You simply HPLOT from one 
point on the screen to another point. To draw a line along the 
top edge of the screen, type 

HCOLOR = 1 

HPLOT 0,0 TO 279,0 

To draw a line from the corner at point 279,0 to the bottom 
corner of the screen, all you have to do is type 

HPLOT TO 279, 159 

and a line appears along the right edge of the screen. When 
you use this last statement, the new line takes its starting 
point and its color from the point previously plotted (even if 
you have issued a new HCOLOR command since that point 
was plotted). To see for yourself, type 

HCOLOR = 4 
HPLOT TO 0,159 

The color 4 is black so you would think the line wouldn’t 
show up. But it does because it takes its color from its 
starting point, which is green (color 1). 

You also can combine several lines in one HPLOT statement. 
Clear the screen with HGR, and try this on your computer: 

HCOLOR = 3 

HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 
0 , 0 
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There should be a line around the edge of the screen, as in 
Figure 4-8. If there isn’t a continuous line around the edge of 
the screen, check your typing. 

Figure 4-8. A Line Around the Edge of the High-Resolution Screen 



] HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 
TO 0,0 

m 


If the top line is not visible on your screen, your television set 
or video monitor needs adjustment. Try adjusting it. If that 
doesn’t work, replace HPLOT 0,0 TO 279,0 with HPLOT 0,2 
TO 279,2 and so on. 
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You see how easy it is to draw straight lines in high 
resolution. Well, diagonal lines are just as easy. To draw a 
line from the top-left corner of the screen to the bottom- 
right corner, type 

HPLOT 0,0 TO 279,159 

Practice drawing high-resolution lines of varying length and 
color. You will discover that certain colors don’t always draw 
vertical lines on black-and-white monitors. Colors 2 and 6 
only plot vertical lines beginning with even numbers, while 1 
and 5 only plot lines beginning with odd numbers. For 
example, if HCOLOR = 1, then 

HPLOT 279,0 TO 279,159 

draws a vertical line on the screen, but 

HPLOT 2,159 TO 0,0 

does not. This is because of the way high-resolution colors 
are interpreted by black-and-white monitors. 


A Sample Program: MOIRE 

To see an example of what you can design with high- 
resolution graphics, load the program MOIRE from the 
Applesoft Sampler disk. Run it; stop the program with 
(control ) -(c~). Then type TEXT, HOME, and L I ST to see the 
program lines. 

Lines 280 and 400: The center of the high-resolution screen 
is at the intersection of four points, or dots, and cannot be 
precisely plotted. Thus CENTER in lines 280 and 400 is 
approximate. 

Lines 320 and 440: One instruction can provide the NEXT for 
more than one FOR statement, as you see in lines 320 and 
440. Be careful that you list the NEXT variables in the right 
order, though, to avoid crossed loops. 


Chapter 4: Lots of Graphics 


Figure 4-9. The MOIRE Program 

NEW 

80 REM MOIRE PROGRAM 

90 HOME 

100 VTAB 24 : REM MOVE CURSOR TO BOTTOM 
LINE 

120 HGR : REM SET HI-RES GRAPHICS 

140 A = RND(1) * 279 : REM PICK AN X FOR 
CENTER 

160 B = RND(1) * 159 : REM PICK A Y FOR 
CENTER 

180 N = INT (RNDC1) * 4) + 2 : REM PICK A 
STEP SIZE 

200 HTAB 15 : PRINT "STEPPING BY " ; N; 

220 FOR X = 0 TO 278 STEP N : REM STEP 
THRU A VALUES 

240 FOR S = 0 TO 1 : REM 2 LINES, FROM X 

AND X + 1 

260 HCOLOR = 7 * S : REM FIRST LINE BLACK, 
NEXT WHITE 

280 REM DRAW LINE THRU "CENTER" TO 
OPPOSITE SIDE 

300 HPLOT X + S,0 TO A , B TO 279 - X - 
S, 159 

320 NEXT S,X 

340 FOR Y = 0 TO 158 STEP N : REM STEP 
THRU B VALUES 

360 FOR S = 0 TO 1 : REM 2 LINES, FROM Y 

AND Y + 1 

380 HCOLOR = 7 * S : REM FIRST LINE BLACK, 
NEXT WHITE 

400 REM DRAW LINE THROUGH "CENTER" TO 
OPPOSITE SIDE 

420 HPLOT279,Y + S TO A,BTO 0, 159 - Y - S 

440 NEXT S , Y 

460 FOR PAUSE = 1 TO 1500 : NEXT PAUSE : 
REM DELAY 

480 GOTO 120 : REM DRAW A NEW PATTERN 
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Can you think of ways to change the program? For example, 
try making the value of HCOLOR= change randomly. Try 
drawing orange and then blue lines, or only blue lines. 

There is much more to high-resolution graphics than is 
presented here. When you feel confident using the high- 
resolution graphics statements presented in this section, 
refer to the Applesoft BASIC Programmer’s Reference 
Manual tor more information on high-resolution graphics. 
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Statements 

Error Messages 

Terms 

PEEK 

7REENTER 

control 

RND 

7RETURN 

memory address 

INT 

WITHOUT GOSUB 

function 

GOSUB 

ERROR 

byte 

TRACE 


kilobyte 

NOTRACE 


subroutine 

END 


routine 

HGR 


high-resolution 

HCOLOR= 


graphics 

HPLOT 
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Computer programs can manipulate letters and symbols as 
well as graphics and numbers. In this chapter you will learn 
how to store and retrieve whole strings of characters for use 
in your programs. You’ll also discover more about how to 
store characters and numbers in what are called arrays. 


I Stringing Along 


In Chapter 1 you learned a little bit about variables. Recall 
that you learned to store a number or the result of a 
computation in a variable. But what if you want to store a 
letter or a series of letters or numbers in a variable? You can 
do that too, by using a different kind of variable — a string 
variable. It’s called a string variable because it stores a 
string of characters. Both kinds of variables can be used in 
the same program. 

String variable names follow the same rules as numeric 
variable names except they end with a dollar sign ($). Here 
are some examples of possible string variable names: 

A$ 

MYNAMES 

SENTENCESS 
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The characters you store in a string variable must be 
enclosed in quotation marks. So if you wanted to store the 
name Harry S. Truman in a variable named NAMES, you 
would type 

NAME $ = "HARRY S TRUMAN" 

The statement 
PRINT NAME$ 

prints the contents of the variable NAMES: in this case, the 
name of the thirty-third president of the United States. Try 
this out. 

The number of characters in a string can range from 0 to 
255. If you try to use more than 255 characters in a string 
you get the 7SYNTAX ERROR or 7STRING TOO LONG ERROR 
message. A string with 0 characters is called a null string. 

Each time you run a program, all numeric variables are 
automatically set to the value 0 and all string variables are 
set to the null string — until you direct otherwise. Therefore, 
for each program you write that uses string variables, you 
must assign the string value within the program. 

Actually, you have already used a string variable without 
knowing it. In the WELCOME program at the end of 
Chapter 2 (under A Quick Review Program), N$ was used as 
a string variable to store your first name. Turn back to the 
end of Chapter 2 now, and look at that program. N$ is a 
good example of what a string variable does. It holds 
whatever characters (letters) are typed in and uses those 
same characters in a message to the user. String variables 
can do other things, too. Read on. 
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I String Functions 


The string function LEN returns 
the number of characters in a 
string (specified in parentheses) 
between 0 and 255. 


The string function LEFT$ 
returns the specified number of 
leftmost characters from the 
string. 


The string function RIGHTS 
returns the specified number of 
rightmost characters from the 
string. 


Several Applesoft functions let you manipulate strings. 
Suppose you want to know the length of a string (how many 
characters it contains). You can use the length function, 
LEN, by typing 

PRINT LEN ( "HARRY S TRUMAN") 
or you can type the equivalent statement 
PRINT LENCNAME$> 

and Applesoft tells you the length of the string. Try it. The 
length of the string NAME$ is 14, as you can see. (Double- 
check by counting the characters yourself.) Remember that 
the computer counts spaces and punctuation marks as 
characters. 

On some occasions you may want to display only a part of 
the character string contained in a string variable. Three 
handy string functions let you do this: LEFTS, RIGHTS, and 
MID$. 

If, for instance, you want to see the first five letters in 
NAMES, type 

PRINT LEFT$ (NAME $ , 5) 

and 

HARRY 

is displayed on the screen. The reason you might want to do 
this will become apparent soon. 

If you type 

PRINT R I GHT $ (NAME! , 5) 

RUMAN 

appears. 


String Functions 
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Here’s a short program that uses the functions LEN and 
LEFTS. 

NEW 

90 NAMES = "HARRY S TRUMAN" 

100 FOR N = 1 TO LEN(NAMES) 

110 PRINT LEFTS (NAME $ , N ) 

120 NEXT N 

Run this program. 

Now write another program substituting RIGHTS for LEFTS. 
The RIGHTS function is just like the LEFTS function except 
that it uses the rightmost characters in the string. What 
happens when you run it? 

If you want to use characters starting from the middle of the 
string instead of the beginning or end, the MID$ function is 
what you need. Type 

PRINT M I D$ ( NAME $ , 7 ) 

and the computer responds with 

The string function MID$ returns 
the substring specified in 
parentheses. 


110 PRINT MID$CNAME$,N) 

Do you get what you expect when you run this program? 

Suppose you want to display just Y, S, and T from the string 
called NAME$. To do this it’s necessary to add another 
argument to the MID$ function. 

PRINT M I D$ (NAME $,5,5) 


S TRUMAN 

since S is the seventh character in the string. 

To see how the MID$ function alters the program, edit line 
110 to read 
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The first argument specifies the fifth string character space, 
This is where the display begins. The second argument 
indicates how many characters are to be displayed. This is 
interpreted by Applesoft as “find the fifth character in 
NAMES and print five characters beginning at the fifth and 
moving to the right.” 

MID$ in a Nutshell: The first argument in a MID$ 
statement specifies the character in the string (not 
necessarily a letter, since punctuation and spaces are also 
characters in strings) where MID$ should begin. If only 
one argument is given, MID$ returns the characters from 
the one named to the end of the string. The second 
argument, which is optional, specifies the number of 
characters to be returned. 

Now change line 110 again, as follows, and run it. 

110 PRINT MID$CNAME$,N,6) 

Don’t go any farther in this book until you’ve thoroughly 
tested the LEFTS, RIGHTS, and MID$ functions. Or else! 


I Common Programming Practices Using Strings 

The program ALPHABET on the Applesoft Sampler disk 
illustrates some common programming practices using 
strings. Load and list it now. 

The best way to understand how this program works is to 
study it carefully. Figure out what each variable represents 
and how each is used. Then look at the programming 
techniques pointed out next. 


Common Programming Practices Using Strings 
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Figure 5- 1. The ALPHABET Program 
NEW 

190 REM THE ALPHABET PROGRAM 

200 A $ = "ABCDEFGHI JKLMNOPQRSTUVWX YZ" 

210 PRINT 

220 PRINT "TYPE A NUMBER, FROM 1 THROUGH " 
LEN ( A $ ) ; " , " 

230 PRINT "AND I WILL TELL YOU WHICH 
LETTER HAS THAT POSITION IN THE 
ALPHABET. " ; 

240 INPUT P 

250 IF P > LEN(A$) OR P < 1 THEN GOTO 210 
260 PRINT 

270 PRINT M I D$ CA$,P,1>;" IS LETTER 
NUMBER " ; P ; " IN THE ALPHABET." 

280 PRINT : PRINT 

290 PRINT "TYPE A LETTER, AND I WILL TELL 
YOU " 

300 INPUT "WHERE IT IS I N THE ALPHABET . ";X$ 
320 FOR N = 1 TO LEN(A$) 

330 IF MIDI (A$ , N , 1 > = X$ THEN GOTO 380 
340 NEXT N 
350 PRINT 

360 PRINT "THAT IS NOT A LETTER OF THE 
ALPHABET." : PRINT 
370 GOTO 290 
380 PRINT 

390 PRINT X $ ; " IS LETTER NUMBER " ; N ; " IN 
THE ALPHABET." 

400 PRINT 
410 GOTO 210 
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Line 220: LEN(A$) determines the length of the string held in 
A$ — when A$ changes, LEN(A$) does too. This gives the 
program more flexibility and allows you to specify a different 
alphabet without having to change the rest of the program. 

Line 270: The MID$ statement in line 270 is interpreted as 
“begin at the first character in A$, go to P (the number 
entered by the user), and display one character.” This is how 
the program identifies the letter in the alphabet that has the 
position specified by P. 

Lines 280 and 400: Notice the function of the blank lines 
caused by the PRINT statements. What would happen to the 
display without these blank lines? (If you aren’t sure, try 
removing a few of them and see what happens when you run 
the program.) 

Line 320: The program uses a loop to find the position of a 
character in a string. This method of using a loop to scan 
through a string, one position at a time, is very common. 

Run ALPHABET now. Then try changing line 200, and run it 
again. Feel free to modify this program and change it in any 
way you like. 


I duplicating Strings 

You can duplicate a string by using a replacement statement 
such as 

X$ = A $ 

This statement copies the contents of A$ into X$. However, 
you cannot use partial string notation on the left side of a 
replacement statement. For example, the statement 

MID$(A$ ,24,3) = X$ 

is illegal, but the statement 

X$ = MID$ CAS, 24,3) 

is OK. The left side of a replacement statement must be a 
variable. 


Duplicating Strings 
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Resetting String Variables to Zero 


Would you like the computer to spell your name backward? 
Well, here’s your big chance! This program will do just that. 

NEW 

100 REM PROGRAM TO SPELL YOUR NAME BACKWARD 
110 INPUT "TYPE YOUR NAME AND I WILL SHOW IT 
TO YOU SPELLED BACKWARD. ";N$ 

120 REM REVERSE ORDER OF LETTERS 
130 FOR T = LEN ( N $ ) TO 1 STEP -1 
140 R$ = R$ + (MIDI ( N $ , T , 1 ) ) 

150 NEXT T 

160 PRINT : PRINT "YOUR NAME SPELLED BACKWARD 
IS " ;R$ 

170 PRINT : PRINT 
180 GOTO 110 

Run this program, trying several different names. After the 
program executes itself a few times you will notice that there 
is something wrong. Line 140 is the key to the problem. 

If, for instance, you input SALLY as your name, the variable 
N$ becomes SALLY and the variable R$ becomes YLLAS. 
Try it. When the program returns to line 110 and asks your 
name again, type in JOE. This will set N$ to JOE. But the old 
variable R$ is still in memory, so line 140 sets R$ to the old 
R$ plus N$ spelled backward. Instead of getting EOJ (JOE 
spelled backward) displayed, you’ll get YLLASEOJ. 

What you need is some way to reset string variables to 0, so 
R$ can be refilled after each GOTO. Fortunately, this can be 
done in Applesoft. The null string can be used to empty the 
contents of R$. Add this line to the program: 

175 R $ = " " 
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Use the null string to reset a 
string variable to 0. 


CLEAR sets all variables to 0. 
Be careful if you use it within 
programs, because used in the 
midst of a subroutine, it can 
interfere with the program’s 
orderly flow of execution. 


Now run the program again. By using the null string near the 
end of the program, the contents of R$ can be set to 0 
characters after the backward name has been displayed. 
Then, when the program goes back to line 110 and starts 
over, R$ is set to the new name rather than filling up with 
and displaying all previous names. 

There is an Applesoft statement, CLEAR, that resets all 
variables of every size and shape, but it is best used in 
immediate execution. Type 

N = 254 
PRINT N 


Now type 
CLEAR 
and then 


PRINT N 

Does your computer give 0 as the value of N? 


I Concatenation Got Your Tongue? 

You can add a second string onto the end of an existing 
string using the plus (+) sign. This process is called 
concatenation. Try the following: 

C$ = "GOOD MORNING" 

D$ = C$ + ", " + "BILL" 

PRINT D$ 

The computer responds with 
GOOD MORNING, BILL 


Concatenation Got Your Tongue? 
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Concatenation is especially useful if you wish to take a string 
apart and then put it back together with slight modifications. 
For instance, to create a new string containing the same 
characters as in D$, but in a different order, type 

Appendix E presents a more E$ = RIGHTS CDS, 4) + MIDS CDS, 13,2) + 

complex version of a sentence- LEFTS CDS, 12) PRINT E$ 

scrambling program and gives 

lots of help with program and 

display. 

BILL, GOOD MORNING 

appears on your screen. Now here is a program that puts 
concatenation to good use: 

NEW 

100 INPUT "GIVE ME ABOUT HALF OF A 
SENTENCE. " ; HALFS 
105 PRINT 

110 INPUT "NOW GIVE ME THE SECOND HALF OF 
THE SENTENCE. " ; OTHERHALFS 
120 WHOLES = HALFS + ■•■■ + OTHERHALFS 
130 PRINT 
140 PRINT WHOLES 

150 PRINT : PRINT : PRINT : GOTO 100 

And that’s how you do concatenation. Try removing the 
space in line 120. What happens to the sentence halves? 


I More String Functions 

Strings can be made up of almost any kind of character, 
including numbers. However, the characters between the 
quotation marks in a string cannot be interpreted 
arithmetically — even if they are numbers. Type 

C$ = "lES" 

PRINT C$ + 7 
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The VAL function attempts to 
interpret a string, up to the first 
nonnumeric character, as a real 
number or an integer, and 
returns the value of that number. 


The computer gives you a 7TYPE MISMATCH ERROR. 
However, the VAL (short for “value”) function can alleviate 
this problem. The VAL function returns the value of the 
contents of a string as opposed to its actual contents. Type 

PRINT C$ 

and then type 

PRINT VAL ( C$ ) 

Both statements apparently produce the same result; 
however, appearances can be deceiving. You already know 
that if you type 

PRINT C$ + 5 

your computer responds with ?TYPE MISMATCH ERROR. 
Try typing 

PRINT VAL ( C$ ) + 5 
and 

IPRINT VAL ( C$ ) + 5 
128 

appears on the screen. Notice that the string variable name, 
which is the argument of the VAL function, must be in 
parentheses. 

What if you want to put the value of C$ - 21 into a numeric 
variable? Simple. Just type 

Q = VAL ( C $ ) - 21 

Now type 

PRINT Q 

and see what you get. Are the contents of Q what you 
expect? You can even use VAL to add the numerical values 
of two different strings. To try this, create a new string 

K $ = " 1 2" 

and then type 

P = VAL ( C $ > + VAL ( K $ ) 

PRINT P 


More String Functions 
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Try the VAL function with different strings, including strings 
that begin or end with letters. 

Sometimes it is necessary to change a numeric variable into 
a string variable. The STR$ function, which works much like 
the VAL function in reverse, can be used to make this 
change. Suppose you want to change the numeric variable P 
to a string variable. Type 

P$ = STR $ C P ) 

PRINT P$ 

to see how STR$ works. 

A Sample Program: DECIMAL 

STR$ is especially useful for formatting text on the screen. 
You could use STR$, for example, if you wanted to line up all 
the decimal points in a list of numbers. Your program could 
convert each number to a string and then use the LEN and 
MID$ functions and HTAB to line up each entry. 

The program DECIMAL on the Applesoft Sampler disk does 
just that. Run it, and then look at your listing and Figure 5-2 
to see how the lines work. This program has lots of remarks 
to help you understand the functions of particular 
statements. 

Figure 5-2. The DECIMAL Program 

5 REM THE DECIMAL PROGRAM 
10 GOTO 1000 

100 REM * PRINT ALIGNED NUMBERS * 

110 REM P$ MUST CONTAIN NUMBER 
120 REM VTAB MUST BE PRE-DONE 
130 REM FIND DECIMAL POINT: 

135 LET DP = LEN (P$) + 1: REM SET 
ALIGNMENT BASED ON NO DP 
140 FOR CHAR = 1 TO LEN CPI) 


The string function STR$ 
returns a string that represents 
the value of the argument. 
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150 IF MIDI ( P $ , CHAR, 1 ) = " . " THEN DP = CHAR: 

REM IF DP FOUND, USE IT 
160 NEXT CHAR 

165 REM LINE UP DP AND PRINT: 

170 CALL -868: REM CLEAR LINE 
180 HTAB 15 - DP: PRINT P$ 

190 RETURN 

300 REM * INPUT NUMBER * 

310 VTAB 21 : HTAB 1 

320 PRINT "WHAT DECIMAL NUMBER" 

330 PRINT "WOULD YOU LIKE TO ADD? "; 

332 CALL -958: REM CLEAR FROM HERE TO BOTTOM OF 
SCREEN 

335 INPUT""; N$ : REM "" K I LLS QUEST I ON MARK 
340 N = VAL (N$) 350 IF N > 999999 OR N < .01 THEN 
GOTO 310: REM POSITIVE NUMBERS ONLY 
360 N $ = STR $ (N) 

370 RETURN 

1000 REM * MAIN ROUTINE * 

1010 TEXT : HOME 

1030 GOSUB 300 : REM GET NUMBER 

1100 REM MOVE DOWN AND PRINT N$ 

1110 ROW = ROW + 1 : VTAB ROW 

1120 P$ = N$ : GOSUB 100 

1200 REM ADD NEW NUMBER TO SUM: 

1210 SUM = SUM + N 
1300 REM PRINT TOTAL: 

1310 P$ = STR$ (SUM) 

1320 PRINT "TOTAL: GOSUB 100 

1400 REM REPEAT UNTIL FULL: 

1410 IF ROW < 19 THEN 1 030 
1420 CALL -958: END 
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Lines 100, 1000: Asterisks are used in REM statements for 
visual identification. They are generally used to mark the 
beginning of subroutines and main routines, as in lines 100 
and 1000. 

Lines 170, 332, 1420: CALL causes execution of machine- 
language subroutines that do magic things on the screen: 
CALL -868 clears the current line; CALL -958 clears to the 
bottom of the screen. These CALL statements should be 
used in conjunction with INPUT statements. For more 
information, see Appendix E and the Applesoft BASIC 
Programmer’s Reference Manual. 

Line 335: The null string (" ") in line 335 keeps the INPUT 
statement from adding an extra question mark. 

Line 1030: Note that the main routine of this program begins 
at line 1000; at line 1030, GOSUB 300 causes it to branch 
back to the INPUT statement. At 370, the program returns to 
line 1100. 

Line 1410: The screen can only show 19 rows of numbers 
without scrolling, so the variable ROW is conditional in line 
1410. 

Lines 335-360 demonstrate the first steps toward making a 
truly error-proof input routine. Try entering all different kinds 
and forms of numbers to see what will stop this program. 
Then figure out ways to catch those kinds of errors so they 
won’t cause the program to stop. 
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Trapping More Errors 

As you are finding out, there are many potential pitfalls a 
programmer has to be aware of and plan for in writing 
programs. It is no fun for the user to find herself stuck in the 
middle of a program with no idea of how to get out, and it is 
no fun for the programmer to see that happen. 

Now that you know how VAL and STR$ can be used if the 
character entered isn’t a positive number (lines 335-360 in 
DECIMAL), it would be helpful to see how to add these 
functions to a program you have already worked on. Load 
your most recent version of COLORBOUNCE, and type 

LIST 350-400 

You should see these lines on your screen: 

350 INPUT "WHAT COLOR WOULD YOU LIKE 
THE BALL TO BE (1-15)? ";HUE 
370 REM IS HUE OF BALL IN RANGE? 

380 IF HUE > 0 AND HUE < 16 THEN GOTO 400 

390 HOME : PRINT "THAT WASN'T BETWEEN 1 

AND 15!": PRINT 
395 GOTO 310 

400 GR : REM SET COLOR GRAPHICS AREA 

Line 380 checks that the number entered is within the 
correct range, and lines 390 and 395 give the user a 
message and another chance to enter a number within 
range. However, the program doesn’t cover the possibility 
that a user might enter ONE instead of 1. As you may recall 
from Making the Program Interact with Users in Chapter 4, 
such an entry would be rewarded with the ?REENTER error 
message, but no indication of what was wrong. 
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Now you can fix the program to take care of just such a 
possibility. Follow these steps: 

1. Change the variable HUE in line 350 to a string variable, 
HUES, so that if a user happens to spell out a number, 
Applesoft can interpret it (remember, a numeric variable 
cannot contain a string of characters). 

2. Add these lines to the program: 

352 REM IS ENTRY A NUMBER? 

354 HUE = VALCHUE$> : REM VALUE OF HUES 
BECOMES NUMERIC VARIABLE 
356 IF HUE > 999999 OR HUE < .01 THEN 

GOTO 300 : REM INPUT MESSAGE WILL 

REAPPEAR 

358 HUES = STR $ ( HUE ) : REM HUE CHANGED 

BACK INTO STRING HUES 

Now run the new version and see what happens when you 
spell out an entry. The COLORBOUNCE2 program on the 
Applesoft Sampler disk contains these and all the other 
changes you have made to COLORBOUNCE. 

I IntroducingArrays 


An array is a collection of variables that represents lists or 
tables of data. The individual variables in an array are called 
its elements, and are distinguished from one another by 
means of identifying numbers called subscripts. The 
variables can be either numeric or string variables. 


The one-dimensional array has 
7 elements; the two-dimensional 
array has 21 elements 


Arrays that represent lists of data are one-dimensional; 
arrays that represent tables of data are two-dimensional. 
Arrays can have up to 88 dimensions. Figure 5-3 shows an 
example of one-dimensional and two-dimensional arrays. 
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Figure 5-3. Arrays 


One dimension 


Two dimensions 


SUSAN 

MEG 

LORRAINE 

CHERYL 

ELIZABETH 

MAUREEN 

HEATHER 


SUSAN 

MEG 

LORRAINE 

CHERYL 

ELIZABETH 

MAUREEN 

HEATHER 

MONA 

SHAUNA 

MARY 

CHARLENE 

LOUISE 

EVA 

ESTHER 

LAURA 

CAROL 

KATHY 

CINDY 

PAULA 

HELEN 

BONNIE 


Elements in a one-dimensional array are numbered with 
subscripts from 0. So for the one-dimensional array in 
Figure 5-3, the element “SUSAN” is numbered 0; the element 
“MEG” is numbered 1; and so on. Elements in a two- 
dimensional array are numbered with subscripts from 0,0 
with the first number designating the row and the second 
number, the column. In Figure 5-3, the element “MONA” is 
numbered 1,0; “LAURA” is numbered 2,0; and “BONNIE” is 
numbered 2,7. 


fl55 


Introducing Arrays 


Naming and Creating Arrays 

An array name can be any legal variable name, and is always 
followed directly by a set of parentheses containing a 
subscript or a variable representing a subscript. Say you 
want to call the one-dimensional array in Figure 5-3 NAME$. 
The value of NAME$(0) is equal to the string “SUSAN”; the 
value of NAME$(1) is equal to the string “MEG”; and so on. 
You can also place a variable — such as A — in the 
parentheses after the array name: NAME$(A). In this case, A 
represents the subscripts and is going to have a value of 0, 
1, 2, 3, 4, 5, or 6. 

To create an array you must tell the computer the maximum 
number of elements you want the array to accommodate. To 
do this, use the DIM (for dimension) statement. Since the 
elements in a one-dimensional array are numbered from 0, 
to dimension your array called NAMES to have a maximum 
of 7 elements, type 

When the DIM statement is DIM NAME$(6) 

executed, it sets aside space for 

an array containing the This DIM statement creates a one-dimensional array with 

specified number of elements. space for 7 elements. They are: 

NAME$(0) 

NAME$(1) 

NAME$(2) 

NAME$(3) 

NAME$(4) 

NAME$(5) 

NAME$(6) 
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The following program illustrates the use of variables in the 
array subscript, and displays the contents of each array 
element. Type 

NEW 

90 REM DIMENSION ARRAY CALLED DAYS 
100 REM HOLDS 7 NUMBERS 
110 DIM DAYSC6) 

120 REM FILL THE ARRAY 
130 FOR NUM = 0 TO 6 
140 DAYSCNUM) = NUM + 1 
150 NEXT NUM 

160 REM DISPLAY THE ARRAY ELEMENTS 
170 FOR I = 0 TO 6 

180 PRINT "DAYSC"; I = H ;DAYS(I) 

190 NEXT I 

If You Don’t Dimension Your Array: If an array is used in a 
program before it has been dimensioned, Applesoft 
automatically reserves space for 11 elements (subscripts 
0 through 10). However, it is good programming practice 
to dimension all arrays. 

To dimension the two-dimensional array shown in Figure 5-3 
and to name it MORENAME$, type 

DIM MOREN AME $ C 2 , 6) 

The first dimension has 3 elements (0, 1, 2) and the second 
dimension has 7 elements (0, 1, 2, 3, 4, 5, 6). The 
MORENAME$ array has space for a total of 21 separate 
elements (3 times 7). 
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A Number-Scrambling Program 

Suppose you want to write a program that scrambles the 
numbers from 1 to 8. To do this you need to manipulate 
tables of data, just the kind of thing arrays are good for. The 
following program accomplishes this. 

NEW 

200 REM DIMENSION THE ARRAY 
210 DIM GLASS (8) : DIM CUPC8) 

220 REM FILL THE ARRAY 
230 FOR I = 1 TO 8 
240 GLASSCI) = I 
250 NEXT I 

260 REM SCRAMBLE THE ARRAY AND CHOOSE EACH 
ELEMENT 

270 FOR TEA = 1 TO 8 

280 REM CHOOSE SOME OTHER ELEMENT 

290 MILK = INT CRNDC1) * 8) + 1 

300 REM WAS MILK DIFFERENT FROM TEA? 

310 REM IF NOT, TRY AGAIN. 

320 IF MILK = TEA THEN GOTO 280 
330 REM PUT CONTENTS OF GLASSCMI LK) IN 
CUPCTEA) 

340 CUP ( TEA ) = GLASSCMI LK) 

350 NEXT TEA 

360 REM PRINT CONTENTS OF ARRAY 
370 FOR C = 1 TO 8 
380 PRINT CUPCC) 

390 NEXT C 

Run the program. Do you understand how it works? The 
program requires that no element of the array be what it was 
originally, so it first fills an array with numbers and then 
scrambles the contents of the array. Notice that you don’t 
have to start filling the array at 0. 
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Here’s a description of what some of the more complex 
program lines do. 

Lines 230-250: Assign each array element a number 
corresponding to its subscript (GLASS(I) = 1, GLASS(2) = 
2, and so on). 

Line 270: Sets the variable TEA to numbers 1 through 8. 

Line 290: Sets variable MILK to random integers from 1 to 8. 

Line 320: Makes sure that the value of variable TEA is not 
equal to the value of variable MILK at any given time. 

Line 340: Switches the contents of variables CUP(TEA) and 
GLASS(MILK). 

Lines 370-390: Print the array. 


Array Error Messages 

Here are a few error messages you might generate while 
programming with arrays. 

If you type 

10 A(9) = 15 
20 DIM A ( 50 ) 

you get the error message 

?REDIM / D ARRAY 

This error message means an array has been dimensioned 
more than once in the same program. This error often 
occurs because the default dimension is used and then later 
a dimension statement is added to the program. 

If you have dimensioned A to 25 with the statement DIM 
A(25), and then refer to the element A(52) or any other 
element whose subscript is less than 0 or greater than 25, 
you see 

?BAD SUBSCRIPT ERROR 

on your screen. This tells you that you have attempted to use 
an array element that is outside the dimension of the array. 
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If you try to use a negative number as an array subscript, you 
get the message 

? I LLEGAL QUANTITY ERROR 

There are several programs in Appendix E that use arrays. 
You can look those programs up later to get a broader sense 
of what can be done with arrays. 
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Statements Error Messages Terms 


LEN 

LEFTS 

MID$ 

RIGHTS 

CLEAR 

VAL 

STR$ 

DIM 


7STRING TOO 
LONG ERROR 
7TYPE MISMATCH 
ERROR 

?REDIM’D ARRAY 
7BAD SUBSCRIPT 
ERROR 
null 


string 

array 

numeric variable 
string variable 
string 

concatenation 

format 

element 

subscript 

dimension 


Conclusion 


Now that you have been introduced to some of the 
programming tools of Applesoft BASIC, you have several 
options. 

If you feel you have learned enough programming for now, 
you will probably want to explore application programs : 
those written by other people, available for purchase, that let 
you use your Apple computer for all kinds of practical 
purposes. See your owner’s manual to learn more about 
application programs. 
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If you are ready and eager for more programming 
challenges, here are some suggestions. 

• If you go through this book again, writing your own 
programs with the statements that are presented, you will 
solidify your knowledge considerably. 

• Appendix E, “More Programs to Play With,” presents four 
new programs. They provide examples of some of the 
practical things you can do with Applesoft and are 
designed to help you build your programming skill and 
understanding. Experimenting with and studying the 
programs in this appendix will help you learn good 
programming practices and will give you lots of ideas 
about writing your own programs. 

• Use the Applesoft BASIC Programmer’s Reference 
Manual to learn about statements as you need them. You 
can also add to your programming skills by trying out the 
examples in that manual. 

One of the pleasures of owning a computer is developing 
your own ideas into programs and creating programs that 
you and others can use. This book has presented the core of 
Applesoft BASIC. Applesoft has many more capabilities, 
and once you have mastered those presented here, there are 
whole new worlds for you to explore! 
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This appendix is a summary of the Applesoft BASIC 
statements and ProDOS commands used in this manual. 
The number and/or letter in square brackets at the end of 
each description refers to the chapter and/or appendix 
where more detailed information about the statement can 
be found. 

You have been introduced in this tutorial to about half of all 
the Applesoft BASIC statements available on your Apple 
computer. The Applesoft BASIC Programmer’s Reference 
Manual presents the remainder and provides a 
comprehensive discussion of all Applesoft statements. 

Included in this appendix are some statements that were not 
introduced in the body of this manual. They are used in 
Appendix E, More Programs to Play With. 


ASC 

The ASC function returns the decimal ASCII (American 
Standard Code for Information Interchange) code for the 
first character of the argument. [E] 


CALL 

CALL causes execution of a machine-language subroutine 
at the memory location whose decimal address is specified. 
For example, CALL -868 clears the current line from the 
cursor to the right margin. It is possible to obtain the same 
result using an ESC or CONTROL sequence. [5, E] 
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CAT 

The ProDOS command CAT (short for CATALOG) displays a 
40-column list of all the files on a disk in the specifed disk 
drive. It includes the file’s name, type, size, and modified 
date. See CATALOG. [2] 


CATALOG 

This ProDOS command displays an 80-column list of all the 
files on a disk in the specified disk drive. For example, 
CATALOG, D2 instructs the operating system to display the 
files on whatever disk is in the second disk drive. Drive 1 
(D1) is used by default unless another drive is specified, as in 
the example. CATALOG displays the file’s name, type, size, 
modified date, date the file was created, and some technical 
information. If you display the 80-column list on a 
40-column-wide screen, each entry in the list takes up two 
lines. 

The file type and the number of disk sectors occupied by the 
file are indicated to the right of the filename in the CATALOG 
listing. File types are represented by three letters. Some 
examples are: 


BAS 

The file is a program written in Applesoft BASIC. 
(All the programs you have saved on a disk while 
using this manual are of this file type.) 

TXT 

The file contains text and was created by a WRITE 
command. 

BIN 

The file is stored in binary form, also known as 
machine language. 

[2] 


CHR$ 


The CHR$ function returns the ASCII character that 
corresponds to the value of the argument, which must be 
between 0 and 255. For example, CHR$ (65) returns the 
letter A. [E,F] 
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See the BASIC Programming 
with ProDOS manual and the 
ProDOS User’s Manual for 
explanations of all the ProDOS 
file types. 
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CLEAR 


This Applesoft statement sets all variables, including arrays 
and strings, to 0. It is best used in immediate execution. 
Because it throws away the values of all variables, it is tricky 
to use within a program. [5] 


C0L0R= 


The color for plotting in low-resolution graphics is set with 
the statement COLOR= followed by an integer from 0 to 15, 
as in COLOR = 5. Color is set to 0 by the GR statement, so 
GR must always be followed by the COLOR = statement for 
anything to appear on the display screen. Color names and 
their associated numbers are: 


0 black 

1 magenta 

2 dark blue 

3 purple 


4 dark green 

5 gray 

6 medium blue 

7 light blue 


8 brown 

9 orange 

10 gray 

11 pink 


12 green 

13 yellow 

14 aqua 

15 white 


On black-and-white or green-phosphor screens the colors 
appear as four shades of gray, as shown: 


Dark gray: 1, 2, 4, 8 
Medium gray: 5, 10 
Light gray: 3, 6, 9, 12 
Pale gray: 7, 11, 13, 14 
White: 15 


[ 1 ] 


CONT 

The CONT statement causes program execution to resume, 
or continue, after (control ) - fc], STOP, or END is used to 
halt execution. Execution resumes at the next instruction 
(like GOSUB) — not the next line number. Variables are not 
cleared. 

If you modify, add, or delete any program line or get an error 
message after stopping execution, CONT won’t work. 

If there is no halted program, CONT has no effect. [2] 
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DATA 

The DATA statement creates a list of elements that can be 
used by READ statements. The elements can be constants, 
strings, real numbers, integers, or a combination, as in 

DATA SMITH 
“TRUMAN” 

3.17 

-6 

[E] 


DEL 

The DEL statement removes, or deletes, the specified range 
of lines from the program and is written DEL 23,56. Other 
syntax will result in a 7SYNTAX ERROR message. To delete 
a single line, say line 35, use the form DEL 35,35 or type the 
line number and then press (return ) . [3] 


DELETE 

This ProDOS command removes the program specified by 
name from a disk. Like other ProDOS commands, it can be 
followed by a disk drive number if, for example, the disk 
containing the program is not in the default drive. DELETE 
BOUNCE, D2 would remove the program named BOUNCE 
from the disk in drive 2, unless that disk is write-protected or 
the file is locked. [3] 

Note: The ( delete ) key on the keyboard is not the same as 
the DELETE command. Some application programs 
support the ( delete ) key. Read the manual that came with 
the product to see if you can use (delete) to remove 
words, lines, numbers, and so on. 
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DIM 

When the DIM statement is executed, it sets aside space for 
an array containing the specified number of elements. The 
elements in an array are numbered from 0. DIM A(50) 
dimensions, or sets aside space for, the array A containing 
up to 51 elements. DIM N$(25) allots 26 strings of any length 
to the array called N$. 

If an array is used in a program before it is dimensioned, 
Applesoft automatically reserves space for 1 1 elements 
(subscripts 0 through 10). Array elements are set to 0 when 
RUN or CLEAR is executed. [5] 


END 

The END statement stops a program and returns control to 
the user. No message is printed. [4] 


FOR 

A FOR statement in combination with a NEXT statement 
sets up a program loop. The loop operation is carried out the 
number of times specified with the TO portion of the 
statement. The use of STEP is optional. 

In the statement FOR W = 1 TO 20... NEXT W, the variable W 
counts how many times to do the instructions. The 
instructions inside the loop are executed 20 times, for W 
equal to 1, 2, 3, up to 20. The loop ends with W = 21, and 
the instruction after NEXT W is then executed. 

The statement FOR Q = 2 TO -3 STEP -2.. .NEXT Q 
illustrates how to use STEP to count in regular increments 
other than 1. 

Checking takes place at the end of a loop, so in the example 
FOR Z = 5 TO 4 STEP 3. ..NEXT Z the instructions inside the 
loop are executed once. 

A 7NEXT WITHOUT FOR ERROR appears if you try to run a 
program with crossed loops. [2] 
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GOSUB 


GOSUB causes the program to branch to the line number 
given. The subroutine beginning at that line number should 
end with a RETURN statement, which causes the program to 
branch back to the statement immediately after the GOSUB. 
For example, GOSUB 500 causes the program to branch to 
line 500 and continue until RETURN. [4] 

GOTO 

The GOTO statement causes the program to branch to the 
indicated line. It is used to create a loop and to run a 
program without resetting all variables. [2] 

GR 

The GR statement sets the stage for low-resolution graphics. 
In the low-resolution graphics mode set by GR, the screen 
has an invisible grid of 40 vertical columns and 40 horizontal 
rows numbered 0-39 and space for 4 lines of text at the 
bottom. GR clears the screen and sets COLOR = to 0, or 
black. [1] 

HC0L0R= 

The color for plotting in high-resolution graphics is 
determined by the HCOLOR= statement. Color numbers 
and their associated names are: 

0 blackl 4 black2 

1 green 5 orange 

2 violet 6 blue 

3 whitel 7 white2 

[4] 
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HGR 


The high-resolution graphics mode, set by HGR, creates a 
screen grid of 280 by 160 plotting points, leaves 4 lines for 
text at the bottom, and clears the screen to black. Neither 
HCOLOR= nor text screen memory is affected when HGR is 
executed. The cursor may not be visible unless it is moved 
into the bottom 4 lines of the screen (text window) by 
pressing (return) . [4] 

HLIN 

The HLIN statement is used to draw horizontal lines in low- 
resolution graphics. It uses the most recently specified color. 
The syntax of HLIN is 

HLIN 10,30 AT 20 

This example draws a horizontal line from column 10 to 
column 30 at row 20. [1] 

HOME 

Using HOME when you are in text mode clears all text and 
moves the cursor to the upper-left corner of the screen. 
Using HOME when you are in one of the graphics modes only 
clears the four lines available for text at the bottom of the 
screen. (To clear the screen of graphics, use GR or HGR.) [1] 


HPL0T 

The HPLOT statement is used to plot dots and lines in high- 
resolution graphics using the most recently specified value 
of HCOLOR = . There are three syntax variants; each has a 
different result: 

HPLOT 10,20 

Plots a high-resolution dot at column 10, row 20 on the 
screen grid. 

HPLOT 30,40 TO 50,60 

Plots a high-resolution line from the dot at column 30, row 
40 to a dot at column 50, row 60. 
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HPLOT TO 70,80 


Plots a line from the last dot plotted to a dot at column 70, 
row 80, using the color of the last dot plotted (not 
necessarily the most recent HCOLOR). If no previous point 
has been plotted, no line is drawn. 

The plotted line may be extended in the same instruction 
almost indefinitely. The single statement 

HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0 

plots a rectangular border around all four sides of the high- 
resolution screen. (If it doesn’t work for you, your screen 
needs adjustment.) 

HPLOT must be preceded by HGR to avoid erasing the 
computer’s memory, including your program and variables. 
[4] 


HTAB 

The HTAB statement moves the cursor either left or right to 
the specified column (1 through 40) on the screen. 

HTAB’s moves are relative to the left margin of the text 
window, but independent of the line width. A line has 255 
character positions (this is the character limit of any line). 
Since the screen has a limit of 40 characters per line, HTAB 
causes the cursor to wrap around to the next screen line for 
positions 41-80, the next line down for positions 81-120, and 
so on. [2] 


IF 

The IF.. .THEN statement creates a conditional program 
loop. It is very useful for limiting the range of a program 
variable. When the condition following the keyword IF is 
evaluated as false (0), all the rest of that program line is 
ignored, and the computer goes on to the next line. When 
the condition is true (1), the statement following the keyword 
THEN is executed. 
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IF N <= 5 THEN GOTO 100 


In this example the variable N is compared to the condition 
IF N < = 5 and evaluated. Each time the condition is true 
(when N is 1, 2, 3, or 4, for example), the remainder of the 
statement is executed and the program branches to line 100 
(specified by GOTO). When the condition is false (when N is 
6 or 10, for example), the GOTO is ignored. 

A THEN without a corresponding IF or an IF without a 
corresponding THEN causes a 7SYNTAX ERROR message. 
[2] 


IN# 

The ProDOS command IN# specifies the source of 
subsequent input. It is used, for example, to direct the 
computer to accept information from the mouse or the video 
display. [F] 


INPUT 

The INPUT statement enables you to interact with a program 
user from within a program. An INPUT statement must name 
a variable to be entered by the user and may contain a 
question or statement. In the example 

INPUT A 

a question mark is displayed on the screen when the 
statement is executed, and the program waits for the user to 
enter a number, which will be assigned to the numeric 
variable A. In the example 

INPUT “TYPE AGE THEN A COMMA THEN YOUR NAME 
B, C$ 

the optional string is displayed exactly as shown. (If the 
programmer wanted to include a question mark, she would 
have to include it within the quotation marks.) The program 
waits for the user to type a number, which is assigned to the 
variable B, then a comma, then a name, which is assigned to 
the string variable C$. Multiple entries can be separated by 
commas or presses of the (return) key. INPUT cannot be 
used in immediate execution. [2] 
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I NT 

The INT function returns the largest integer less than or 
equal to the given argument. In the example INT (NUM), if 
NUM is 2.389, then 2 is returned; if NUM is - 45.123345, then 
-46 is returned. [4] 


INVERSE 

The INVERSE statement sets the video mode so that 
characters are displayed as dark letters on a light 
background. Use NORMAL to return to light letters on a 
dark background. [1] 


LEFT $ 

The string function LEFTS returns the specified number of 
leftmost characters from the string. If you type PRINT LEFTS 
(“APPLESOFT”, 5) the 5 leftmost characters, APPLE, are 
returned. [5] 


LEN 

The string function LEN returns the number of characters in 
a string (specified in parentheses) between 0 and 255. In the 
example LEN (“AN APPLE A DAY”), 14 are returned. In the 
example LEN (A$), the number returned is the count of 
characters in the string A$. [5] 


LET 

The LET statement is used to define a variable. The variable 
name to the left of the equal sign, which is used in 
conjunction with LET, is assigned the value of the string or 
expression to the right of the equal sign. LET is optional; the 
statements LET A = 23 and A = 23 give the same result. [1] 
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LIST 


The LIST statement displays the program lines that are in 
the computer’s memory. 

LIST Displays entire program. 

LIST 150 Displays only line 150. 

LIST -200 Lists from the start of the program 

through line 200. 


LIST 200- 


Lists from line 200 to the end of the 
program. 


LIST 200,3000 


or 

LIST 200-3000 Lists program lines 200 through 3000. 

(control )- fs~) is used to halt and to resume a listing. Listing 
is stopped by [control ) -fc], and the CONT command 
cannot be used. [2] 


LOAD 

The LOAD command, when followed by a file name, 
attempts to find the named program file on the disk in the 
specified or default drive. If the program is found, it is 
transferred into the computer’s memory. LOAD erases any 
program in the computer’s memory before placing the new 
program in memory. [2] 

LOAD is also an instruction used with cassette recorders (for 
the lie only). When not followed by a file name, LOAD reads 
an Applesoft program from cassette tape into the 
computer’s memory. No prompt is given: the user must 
rewind the tape and press the play button on the recorder 
before loading. A beep is sounded when information is 
found on the tape being loaded. When loading is successful, 
a second beep sounds and the Applesoft prompt (]) is 
displayed. Only pressing RESET can interrupt the command. 
See the Applesoft BASIC Programmer’s Reference Manual 
for a list of all instructions used with cassette recorders. 
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M I D$ 


The string function MID$ returns the substring specified in 
parentheses. If you type PRINT MID$ (“AN APPLE A 
DAY”, 4), the fourth through the last characters of the string 
are returned: APPLE A DAY. In the example MID$ (“AN 
APPLE A DAY”, 4, 9), the nine characters beginning with the 
fourth character in the string are returned: APPLE A D. [5] 


MEW 

The NEW statement deletes the current program from 
memory and sets all variables to 0. [2] 

NEXT 

NEXT is used within a FOR/NEXT loop. See the FOR 
statement for explanation. [2] 

NORMAL 

NORMAL sets the video mode to the usual light letters on a 
dark background. [1] 


NOTRACE 

The NOTRACE statement turns off TRACE. See TRACE. [4] 
ONERR GOTO 

ONERR GOTO is used to avoid an error message that halts 
execution when an error occurs. When executed, ONERR 
GOTO sets a flag that causes an unconditional jump to the 
indicated line number if any error is later encountered. [E] 


PEEK 

The PEEK function returns the contents, in decimal form, of 
the byte at the specified memory address. In the example 
PEEK(-16336), the address, or argument, is -16336; this 
particular address is the memory address of the Apple 
computer’s speaker. When the function is executed, the 
speaker makes a barely audible click. [4, E] 
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PLOT 

In low-resolution graphics, the PLOT statement places a 
brick at the specified location. In the example PLOT 10,20, a 
brick is placed at column 10, row 20. The color of the brick is 
determined by the most recent value of COLOR=, which is 
black if not specified. [1] 


POKE 

POKE stores the binary equivalent of its second argument in 
the memory location whose decimal address is given by the 
first argument. POKE statements are useful for doing things 
like switching the graphics/text window mix and for 
controlling the size and scrolling of the text window. In the 
example POKE 34,3, the top margin of the display is set 
three lines down from the top and text only scrolls up to that 
margin. Another example is POKE 33,33, which narrows the 
width of the text window. [E] 


PRINT 

PRINT is the primary Applesoft statement used to display 
information on the screen. The PRINT statement can display 
a number, as in PRINT 150; it can display the contents of a 
variable, as in PRINT N; it can display a group of characters 
contained in quotation marks, as in PRINT “HELLO 
THERE”; and it can display a blank line as in PRINT, which 
causes a line feed and RETURN to be executed. 

To display a list of items without any intervening spaces 
between them, use semicolons in the PRINT statement. To 
display a list of items in separate tab fields, use commas. [1] 


PR# 

PR# is a ProDOS command that specifies the destination 
for subsequent output. It is used, for example, to direct the 
computer to send information to a mouse (PR#4) or to a 
printer (PR#1). PR#0 returns display to the screen, although 
it is not the best method to use with some peripheral cards. 
PR# is used with the numbers 0-7; these numbers refer to 
the port or slot to which a device is connected. [E, F] 
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REM 

REM is a statement that allows you to put remarks, or 
commentary, in a program. REM statements are not 
displayed or executed in a program; they are used by 
programmers to explain programs. [2] 


RETURN 

The RETURN statement is used at the end of subroutines. It 
causes the program to branch to the statement immediately 
after the most recently executed GOSUB. [4] 


RIGHTS 

The string function RIGHTS returns the specified number of 
rightmost characters from a string. If you type PRINT 
RIGHT$(“SCRAPPLE”,5), APPLE (the 5 rightmost 
characters) is returned. [5] 


RND 

The arithmetic function RND returns a random real number 
greater than or equal to 0 and less than 1. Every time RND is 
used with any positive argument a new random number from 
0 to 1 is generated, unless it is part of a sequence of random 
numbers initiated by a negative argument. RND(O) returns 
the most recently generated random number. [4, E] 


RUN 

The RUN statement clears all variables and begins execution 
at the indicated line number. 

RUN executes entire program, beginning at lowest line 
number. 

RUN 130 begins execution at line 130 (or whatever line is 
specified) and continues to end of program. 

RUN followed by a filename is a ProDOS command. It loads 
the named file from the specified or default drive and then 
runs the program that has been loaded. You can also use the 
RUN command to specify the line number at which the 
program should start running. [2] 
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SAVE 

SAVE, when followed by a filename, is a ProDOS command 
that stores the program currently in memory. If the 
command SAVE AGE is given, and no file called AGE is 
found on the disk in the specified or default drive, a file is 
created on that disk, and the program currently in memory is 
stored under the given filename. If the disk already contains 
a file in the same language with the specified filename, the 
original file’s contents are lost and the current program is 
saved in its place. No warning is given. [2] 

SAVE used without a filename stores the program currently 
in memory on cassette tape (for the Apple lie only). No 
prompt or signal is given: the user must press the record 
and play keys on the recorder before SAVE is executed. 
SAVE does not check that the proper recorder buttons are 
pushed; beeps signal the start and end of a recording. See 
the Applesoft BASIC Programmer’s Reference Manual tor a 
list of all instructions for cassette recorders. 


STEP 
See FOR. 


STOP 

Terminates the execution of a program and returns control 
to the user. [2] 

STR$ 

The string function STR$ returns a string that represents the 
value of the argument. In the example STR$ (12.45), “12.45” 
is returned. [5] 
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TAB 

The display function TAB, which can only be used in a PRINT 
statement, moves the cursor through tab fields on the 
screen. Its arguments must be between 0 and 255 and 
enclosed in parentheses. 

If the argument is greater than the value of the current 
cursor position, TAB moves the cursor to the specified 
printing position, counting from the left edge of the current 
cursor line. If the argument is less than the value of the 
current cursor position, the cursor is not moved. [2] 


TEXT 

The TEXT statement sets the screen to the usual 
nongraphics text mode, with 40 characters per line and 24 
lines. When used to leave the graphics mode, it is best used 
in conjunction with the HOME statement. It resets the text 
window to full screen. [1] 


TRACE 

The debugging statement TRACE causes the line number of 
each statement to be displayed on the screen as it is 
executed. TRACE is not turned off by RUN, CLEAR, NEW, 
DEL, or RESET. NOTRACE turns off TRACE. [4] 


VAL 

The VAL function attempts to interpret a string, up to the 
first nonnumeric character, as a real number or an integer 
and returns the value of that number. If no number occurs 
before the first nonnumeric character, 0 is returned. [5] 
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VLIN 


In low-resolution graphics, VLIN draws a vertical line in the 
color indicated by the most recent COLOR= statement. The 
line is drawn in the column indicated by the third argument. 
In the example VLIN 10,20 AT 30, the line is drawn from row 
10 to row 20 at column 30. [1] 


VTAB 

VTAB moves the cursor to the specified vertical row on the 
display screen. The top row is row 1; the bottom row is row 
24. VTAB moves the cursor up or down but not left or right. 
[2] 
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The following list contains all of the reserved words in 
Applesoft BASIC. They are reserved for use as keywords in 
Applesoft statements: when Applesoft sees them in a 
program, it tries to execute them and only understands their 
meaning within the language. In most cases these reserved 
words cannot be used as variable names. The comments at 
the end of the list note the exceptions. See the Applesoft 
BASIC Programmer’s Reference Manual for an explanation 
Applesoft Reserved Words of the statements not discussed in this manual. 


& 

END 

IF 

ON 

RND 

TAB( 


EXP 

IN# 

ONERR 

ROT = 

TAN 

ABS 


INPUT 

OR 

RUN 

TEXT 

AND 

FLASH 

INT 



THEN 

ASC 

FN 

INVERSE 

PDL 

SAVE 

TO 

AT 

FOR 


PEEK 

SCALE= 

TRACE 

ATN 

FRE 

LEFTS 

PLOT 

SCRN( 




LEN 

POKE 

SGN 

USR 

CALL 

GET 

LET 

POP 

SHLOAD 


CHR$ 

GOSUB 

LIST 

POS 

SIN 

VAL 

CLEAR 

GOTO 

LOAD 

PR# 

SPC( 

VLIN 

COLOR = 

GR 

LOG 

PRINT 

SPEED= 

VTAB 

CONT 


LOMEM: 


SQR 


COS 

HCOLOR= 


READ 

STEP 

WAIT 


HGR 

MID$ 

RECALL 

STOP 


DATA 

HGR2 


REM 

STORE 

XDRAW 

DEF 

HIMEM: 

NEW 

RESTORE 

STR$ 

XPLOT 

DEL 

HLIN 

NEXT 

RESUME 



DIM 

HOME 

NORMAL 

RETURN 



DRAW 

HPLOT 

NOT 

RIGHTS 




HTAB 

NOTRACE 
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Reserved Words in Applesoft 


• Applesoft “tokenizes” these reserved words, meaning 
that each of them takes up only one byte of storage space, 
while usually one character takes up one byte. 

• The ampersand (&) is intended for the computer’s internal 
use only; it is not a proper Applesoft statement. This 
symbol, when executed as an instruction, causes an 
unconditional jump to location $3F5. 

• XPLOT is a reserved word that does not correspond to a 
current Applesoft statement. 

Some reserved words are recognized by Applesoft only in 

certain contexts: 

• COLOR = , HCOLOR = , SCALE = , SPEED = , and ROT = 
are interpreted as reserved words only if the next 
nonspace character is the equal sign (=). In the case of 
COLOR= and HCOLOR = , this is of little benefit because 
the included reserved word OR prevents their use in 
variable names anyway. 

If you attempt to execute a statement like 10 COLORFUL 
= 5, a 7SYNTAX ERROR results. If you attempt to list the 
same statement, it is broken down as 

10 COL OR FUL = 5 

• SCRN, SPC, and TAB are recognized as reserved words 
only if the next nonspace character is a left parenthesis [(]. 

• HIMEM must be followed by a colon (:) to be recognized as 
a reserved word. 

• LOMEM also must be followed by a colon (:) to be 
recognized. 

• ATN is recognized as a reserved word only if there is no 
space between the T and the N. If a space occurs between 
the T and the N, the reserved word AT is recognized, 
instead of ATN. 

• TO is interpreted as a reserved word unless preceded by 
an A with a space between the T and the O. If a space is 
between the T and the O, the reserved word AT is 
recognized instead of TO. 
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Sometimes parentheses can be used to get around reserved 
words: 

Whereas 100 FOR A = LOFT OR CAT TO 15 lists as 
100 FOR A = LOF TO RC AT TO 15 
100 FOR A = (LOFT) OR (CAT) TO 15 lists as 
100 FOR A = (LOFT) OR (C AT ) TO 15 


Reserved Words in Applesoft 
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All of Applesoft BASIC’s error messages are listed and 
described in this appendix. The Applesoft BASIC 
Programmer’s Reference Manual has more information 
about trapping errors and debugging programs. 

After an error occurs, Applesoft BASIC returns to command 
level as indicated by the prompt character and cursor. 
Variable values and program text remain intact, but the 
program cannot be continued with CONT and all GOSUB 
and FOR loop counters are set to 0. 

Error messages follow one of these two formats: 

• Errors in immediate execution statements display 
messages as ?XX ERROR. 

• Errors in deferred execution statements display messages 
as ?XX ERROR IN YY. 

In both formats XX is the name of the specific error. In 
deferred execution YY is the line number of the statement 
where the error occurred. Errors in a deferred execution 
statement are not detected until that statement is executed. 

All Applesoft error messages are preceded by a question 
mark (?). If an error message is displayed on your screen 
without a question mark, it is either an Applesoft message of 
the non-error variety (such as BREAK IN 110) or it is a 
ProDOS error message; see the ProDOS User’s Manual or 
Applesoft BASIC Programmer’s Reference Manual for more 
information. 
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Applesoft error messages and their explanations follow. 


7BAD SUBSCRIPT ERROR 

An attempt was made to reference an array element that is 
outside the dimensions of the array. This error can occur if 
the wrong number of dimensions is used in an array 
reference: for instance, LET A(11) = Z when A has been 
dimensioned using DIM A(2). 


?CAN / T CONTINUE ERROR 

Attempt to continue a program when none existed; or after 
an error occurred; or after a line was changed, deleted from, 
or added to a program. 

7DIVISI0N BY ZERO ERROR 
Dividing by 0 generates this message. 

7F0RMULA TOO COMPLEX ERROR 

More than two statements of the form IF/THEN were 
executed. 

7 I LLEGAL DIRECT ERROR 

You cannot use an INPUT, DEF FN, GET, or DATA statement 
as an immediate execution command. 

7 I LLEGAL QUANTITY ERROR 

The parameter passed to a built-in arithmetic or string 
function was out of range. ILLEGAL QUANTITY errors can 
occur because of: 

• a negative array subscript (for example, LET A(-1) = 0) 

• using LOG with a negative or 0 argument 

• using SQR with a negative argument 

• A " B with A negative and B not an integer 

• use of MID$, LEFTS, RIGHTS, WAIT, PEEK, POKE, TAB, 
SPC, ON. ..GOTO, or any of the graphics functions with an 
improper argument. 
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?NEXT WITHOUT FOR ERROR 

The variable named in a NEXT statement did not agree with 
the variable in the corresponding FOR statement, or a 
nameless NEXT was executed when no FOR was in effect. 
The three most common causes for this error are forgetting 
to type the appropriate FOR or NEXT statement; typing the 
wrong variable after the NEXT statement; or accidentally 
branching into the body of a FOR loop. 


?0UT OF DATA ERROR 

A READ statement was executed, but all of the DATA 
statements in the program had already been read. Either the 
program tried to read too much data or insufficient data was 
included in the program. 


?0UT OF MEMORY ERROR 

Any of the following can cause this error: program too large; 
too many variables; FOR loops nested more than 10 levels 
deep; GOSUBs nested more than 24 levels deep; too 
complicated an expression; parentheses nested more than 
36 levels deep; attempt to set LOMEM: too high; attempt to 
set LOMEM: lower than present value; attempt to set 
HIMEM: too low. 


?0VERFL0W ERROR 

The result of a calculation was too large to be represented in 
Applesoft’s number format. If an underflow occurs, 0 is 
given as the result, and execution continues without any 
error message being printed. 
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?REDIM'D ARRAY ERROR 

After an array was dimensioned, another dimension 
statement for the same array was encountered. This error 
often occurs if an array has been given the default 
dimension and then is followed later in the program by a DIM 
statement. This error message can be useful if you want to 
know on what program line a certain array was 
dimensioned: just insert a dimension statement for that 
array in the first line, run the program, and Applesoft will tell 
you where the original dimension statement is. 


7RETURN WITHOUT GOSUB ERROR 

A RETURN statement was encountered without a 
corresponding GOSUB statement. 


7STRING TOO LONG ERROR 

Attempt was made by use of the concatenation operator ( + ) 
to create a string more than 255 characters long. This error 
tends to occur when a string variable is used more than once 
without being cleared. 


7SYNTAX ERROR 

There is a missing parenthesis in an expression, illegal 
character in a line, incorrect punctuation, or some other 
format error. Usually this is caused by a simple typing error. 


?TYPE MISMATCH ERROR 

The left-hand side of an assignment statement was a 
numeric variable and the right-hand side was a string, or 
vice versa; or a function that expected a string argument 
was given a numeric one, or vice versa. This happens most 
often because the string sign ($) is left off. 
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?UNDEF'D STATEMENT ERROR 


An attempt was made to GOTO, GOSUB, or THEN to a 
statement line number that does not exist. Causes include 
accidentally deleting a line, changing a line number without 
making corresponding changes in references, and simple 
typing errors. 


?UNDEF , D FUNCTION ERROR 

A reference was made to a user-defined function that had 
never been defined. 
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This appendix gives you some ideas on what to do if 
something goes wrong and where to look for more 
information. It also gives you helpful information about 
miscellaneous topics such as formatting disks with the Filer 
on your Applesoft Sampler disk. 


I If You Jot Your Program) Get Stuck 

One day as you are happily working away, you may look up to 
discover that nothing is happening on the display screen. 
When you press (return) , nothing moves. When you try 
other keys, nothing appears. The cursor may even have 
disappeared. This state is sometimes referred to as a 
“hung” system. 

There are at least six things you can try to get your computer 
back to normal. Try them in the order given until one works. 

1. Press (esc) . This key is in the upper-left corner of the 
keyboard. Its full name is ESCAPE, and if you’re lucky, 
that’s what it will help you do. 

2. Press (control ) -(c~). Many programs think of this 
combination as meaning cancel. 

3. Press (control ) -fc] and then (return) . 

4. Hold down (control) while pressing (reset) (on the far 
right of the keyboard), (control) - ! reset) restarts the 
resident program. 
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5. Hold down (2] and (control) while you press (reset) . 
This is a power-on restart and is pretty drastic: whatever 
is going on is stopped and main memory is cleared. You 
can find out more about this procedure in your 
computer’s reference manual. 

6. Turn off the power. You will rarely have to go this far, and 
it is easier on the computer if you use the power-on 
restart instead of turning the power off and on. 

You can use these same methods to exit from a program. 

Usually a program (if it is well written) tells you what to do, 

but there are times when programs don’t offer such options. 


Errors 

In this manual, Applesoft error messages are explained in 
the text and in Appendix C. More information about 
Applesoft errors can be found in the Applesoft BASIC 
Programmer’s Reference Manual. 

Error messages also are given by operating systems, such 
as ProDOS and Pascal. Whenever you get an unfamiliar 
error message, check the operating system’s manual for 
information. 


Statements and Commands 

Applesoft statements are discussed in full in the Applesoft 
BASIC Programmer’s Reference Manual. 

Commands used by the Professional Disk Operating System 
are discussed in the ProDOS User’s Manual and the 
BASIC Programming with ProDOS manual. 

Apple computers have certain input/output (I/O) 
subroutines built into the firmware. See your computer’s 
reference manual for more information. 
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Cassette Recorders 


If you are using an Apple lie, all of the programs in this 
manual can be saved on cassette tape if you are not using a 
disk drive. The Applesoft BASIC Programmer’s Reference 
Manual explains the use of cassette recorders with the 
Apple lie. 


The information in this section is a bit miscellaneous, but 
helpful nonetheless. 


Using the Applesoft Sampler Filer 

In this manual’s Overview you are instructed to format a 
blank disk and to make a copy of your Applesoft Sampler 
disk before beginning the tutorial. If you have an Apple lie 
and received a DOS 3.3 System Master disk when you 
bought your disk drive and controller card, you should not 
use this disk to do the task, since the tutorial is based on 
ProDOS. Instead, you should use the Filer included on the 
Applesoft Sampler disk. 

Here’s how to format a disk using the Applesoft Sampler 
Filer: 

1. Select option 3 from the Applesoft Sampler Disk Main 
Menu. 

2. When you get the prompt character and the cursor, type 
-FILER 

and press (return) . 

3. When you get the Filer menu, type V for VOLUME 
COMMANDS. 

4. When you get the Volume Commands list, type F for 
FORMAT A VOLUME. 

5. When you get the Format a Volume screen, put a blank 
disk in drive 1 and press (return) three times to accept 
the default answers. 
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You will hear the disk being formatted and will get a FORMAT 
COMPLETE message when it’s done. 

To copy a disk you need two disk drives. Here’s how to copy 
a disk using the Applesoft Sampler Filer: 

1. Follow steps 1 through 3 above. 

2. When you get the Volume Commands list, type C for 
COPY A VOLUME. 

3. When you get the Copy a Volume screen, make sure your 
original disk is in drive 1 and a blank formatted disk is in 
drive 2. Then press (return) five times to accept the 
default answers. 

You’ll hear the disk being copied and will receive a message 
when the process is complete. 


Printing Applesoft Programs 

If you have a printer connected to your computer, or have 
access to a printer, you can use these general instructions to 
print your programs on paper. 

1. Load the program. 

2. Press (esc) ( control ) -(cT). 

3. Type PR# 1 if the printer card is connected in slot 1 or 
port 1. If the printer card is in a different slot or port, use 
the number of that slot with PR#. 

Note: PR#1 is shorthand for “print to the device attached 
to slot 1.” The Apple lie has slots inside the case where 
you attach peripheral devices. The lie has two ports where 
you can attach a printer and a modem. Printers are 
customarily plugged into slot 1 or port 1. 

4. Type RUN if you want the results of your program printed. 

5. Type L I ST if you want the listing of your program printed. 
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6. To turn off your printer and send information back to the 
screen, type: 

PR#0 (if you’re using 40 columns) 
or press 

( esc ) - ( control 1 -fo) PR* *0 (if you’re using 80 columns) 

( esc ) - ( control ) - fo) is a special command that turns off 
the 80-column feature. You have to turn off the 80-column 
display before typing PR#0, or you get strange results. To 
turn the 80-column display back on, type PR*3. 

That’s all there is to it! 


The Apple’s Memory 

The memory in the Apple computer is used in a surprising 
number of ways: 

• To store the instructions that make up your program. 

• To store your program’s variables, strings, and 
intermediate and final results. 

• To store various information that the computer needs: 
about the system, about your program, and about where 
different things are stored in memory. 

• To create the text and low-resolution graphics that 
normally show on your video monitor. 

• To create the high-resolution graphics that can be shown 
on your video monitor. 

Each of these activities, in general, occupies a different 
portion of the computer’s memory. Information is placed in 
various memory pigeonholes, called memory locations. A 
block of 1024 memory locations is called 1/Cof memory. 
Each memory location has an identifying address, a number 
that lets the computer find that location and the item of 
information stored there. These items of information, which 
you rarely see in their raw, machine-language form, are 
called bytes. Each byte of information occupies one memory 
location. 
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The portion of the computer’s memory that is used by a 
particular activity can be described in terms of the memory 
locations used, usually specified as a range of memory 
addresses. If a certain range of memory locations is being 
used to store your program, for instance, those same 
memory locations must not be used to create a high- 
resolution graphics display or your program will be lost. 

In Applesoft BASIC, memory addresses and other numbers 
are expressed in the usual decimal form. The computer uses 
hexadecimal numbers. To aid advanced programmers, 
memory addresses are sometimes given in both forms. 
Hexadecimal numbers usually are preceded by a 
dollar sign ($). 
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If you have gone through this manual step by step, you have 
learned many Applesoft BASIC statements by now. 

However, you may be having a hard time figuring out how to 
use these statements effectively in your programs. The 
purpose of this appendix is to give you examples of some 
practical applications of Applesoft BASIC statements. 

One of the best ways to learn good programming techniques 
is to explore programs written by others. In this appendix, 
we explore four programs that are a bit more complex than 
most of the programs you’ve seen so far. These programs 
are on the Applesoft Sampler disk. They are: 

• SCRAMBLER, a sentence-scrambling game that 
demonstrates clear instructions to users and the RND 
function. It also gives free rein to the imaginative writer. 

• MAGIC. MENU, a surprise program that offers you useful 
subroutines for displaying instructions, accepting input 
using the underline cursor, and creating friendly menus — 
all in a minimum of time. 

• DISK. MENU, a program that introduces the Applesoft 
Sampler disk, provides a sample menu, and uses the 
subroutine package provided in the MAGIC. MENU 
program. 

• CONVERTER, a program skeleton used for measurement 
conversion that leaves plenty of space for you to add and 
to experiment with your own conversions while learning 
how to tailor programs to your needs. The program guides 
you through this process and helps you to build your own 
menus. 
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Before you begin tinkering with these programs, make sure 
you’ve already made a backup copy of the Applesoft 
Sampler disk. Then choose Main Menu option 2 — Tutorial 
Appendix E: “More Programs to Play With” — to see these 
four programs. Running these programs, playing with the 
code, and modifying them to suit yourself will help you learn 
good programming practices and some new techniques. 

A note of reassurance: You’re already equipped with all the 
skills you need to understand SCRAMBLER, the first 
program. The other three programs are more complex, but 
you will learn more from studying them. If you begin to feel 
overwhelmed, stop. Work on your own programs. When you 
have questions about how to do things, come back and look 
at these programs for some answers. 


I SCRAMBLER 


Before you read any further, run SCRAMBLER by choosing 
option 1 from the Applesoft Tutorial Samples menu. This 
discussion, and the ones that follow, assume that you have 
the program in your computer as you are reading. 

SCRAMBLER is an easy to understand, block-structured 
program. Block-structured programs are made up of 
subroutine blocks, or components, each of which performs a 
specific task. The main program is in the top-level block. 
Type 

LIST 1000 - 1160 

to see the main program. This block calls, in turn, the four 
second-level blocks. Each block in this program is designed 
to do its own specific task, much like the components of a 
stereo system. 

SCRAMBLER has four such tasks: 

1. Give instructions to the user. 

2. Accept the first halves of sentences. 

3. Accept the second halves of sentences. 

4. Display the sentences. 
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Each of these tasks has been assigned to a separate 
subroutine, or block, with one clearly defined entrance. 

Try typing 

RUN 1180 

to execute the subroutine that gives instructions to the user. 

Each subroutine is called by a higher block, using the 
GOSUB statement; and each block ends with a RETURN 
statement. (If you haven’t done so already, press (return) . 
You should get a 7RETURN WITHOUT GOSUB ERROR 
message. The RETURN statement at the end of the 
subroutine tries to go back to the main program. Since you 
accessed the subroutine directly, not through the main 
program, the RETURN statement has nowhere to go.) 

All this probably seems easy — after all, you’ve learned how 
to write subroutines with GOSUB and RETURN. In fact it is 
easy, and is just mentioned here to stress the usefulness of 
writing block-structured code. While writing unstructured 
code (filled with meandering GOTO statements) may seem 
much easier to you at first, your first hundred-line program 
will probably convince you that writing blocks of code is 
much easier than trying to follow a program that jumps from 
place to place like a kangaroo. 

By taking just a few minutes to think through the overall 
program you are writing, you can avoid becoming tangled up 
in spaghetti code. Any process that occurs more than once 
in your program should be written into a subroutine block. If 
a block becomes so complex that you can no longer see the 
big picture, break that block into a series of smaller 
subroutine blocks. 
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Analysis of the Program Lines 

All of the Appendix E programs have basically the same first 
three lines. The first (well, the zeroth) line has the name of 
the program, when it was written, and who was responsible. 
Including this information in your programs lets you know at 
a glance what program you are looking at and when you 
wrote it. 

Line 1 sends the program off to the main program (which is 
the top-level block) with GOTO 1000. The main routine 
begins at line 1000 so there is space to make additions later 
if you need to. 

Line 2 is a complete mini-program that the programmer 
added to make editing the program easier. POKE 33,33 
scrunches up the lines on one side of the screen. Then when 
you edit PRINT and REM statements, the blank spaces on 
the right side of the screen aren’t copied. Type 

RUN 2 

and then 

LIST 1350 

to see what line 2 does. You can type RUN 2 any time you 
want to edit a line; type TEXT when you are finished. (All the 
Appendix E programs have this same line.) 

Lines 1000 to 1060 are the top-level block of the program. 
These lines send the program to the four subroutines in the 
appropriate order. The REM statements explain what each 
subroutine does. 

Lines 1070 to 1160 end the program. Programs should have 
only one end point. That way, if the programmer later 
decides to add a special quit feature, it can be done by 
adding code in one location, not in half a dozen places 
throughout the program. 
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Lines 1 180 to 1390 are the first subroutine. 

• Line 1200 should be included in all your programs that use 
40-column display. With the addition of the 40/80-column 
switch on new Apples, you can never assume that the user 
is going to run your program with the proper text mode 
set. This line sets the screen to the proper dimensions, so 
the user doesn’t have to type TEXT before running the 
program. 

• Line 1210 dimensions the two string arrays used to store 
the first and last halves of sentences. Because space is 
allotted for 1000 elements in each string, it would take a 
user between six and eight hours to fill enough strings to 
cause an error. (We hope that few users are so dedicated 
to sentence scrambling!) 

• Line 1220 defines a string variable — TITLES. Using 
English words makes your variables easy to identify. Use 
descriptive names for variables whenever practical, but 
keep in mind that Applesoft only looks at the first two 
characters in the variable name. (More on variable names 
in the next program.) 

• Lines 1230 to 1390 print clear, easy-to-read instructions 
for the user. 

Lines 1400 to 1540 are the second subroutine block, which 

accepts the first halves of sentences. 

• Lines 1400 to 1470 give instructions to the user. 

• Line 1480 initializes the variables that are used in the 
subroutine. 

• Line 1490 sets a scrolling window, so that the user’s 
entries will not scroll the instructions off the screen. 

• Lines 1500 to 1530 form a loop inside the subroutine. In 
line 1500 the user fills the strings in the FIRSTS array. 

• Line 1510 checks to see if the user is pressing the 
© key. 
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• Line 1520 makes sure that the user does type something 
(to prevent the user from putting blank lines in the 
strings). You could change line 1520 to 

1520 F = F + 1 

to see how the program would work without this 
error-checking element. 

If the user does type something, the program increments 
a “counter” variable called F. A counter variable is simply 
a variable that counts the number of times the user goes 
through the loop. 

Lines 1600 to 1720 are the third subroutine. These lines get 
the second halves of sentences. This subroutine works just 
like the previous one; only the prompt lines are different. 

Lines 1800 to 1950 are the fourth subroutine. This 
subroutine combines random sentence halves and displays 
the completed sentences on the screen. 

• Line 1820 makes sure that there are halves to combine. If 
not, it returns to the main program. Usually, a lack of 
sentences means the user wants to get out. 

• Line 1830 uses the TEXT statement to release the text 
window set in line 1660; then HOME clears the entire 
screen. 

• Lines 1840 to 1870 put messages on the screen. 

• Line 1880 sets the scrolling window again so the 
messages don’t scroll off the screen. 

• Line 1890 places the cursor inside the scrolling window. 

• Line 1900 checks to see if the [5] key has been pressed. 

• Line 1910 selects the sentence variables, FF and SS, from 
the total number of sentence halves, F and S. 

• Lines 1920 to 1940 display the sentence halves with blank 
lines separating each sentence. 

• Line 1950 goes back to 1890 to get the next sentence. 
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Fine Tuning 

SCRAMBLER has two problems that have been left for you 
to work out: 

1. Applesoft’s standard INPUT statements will not accept 
commas or colons: try typing a sentence half with a 
comma or colon in it. There are two ways to handle 
problems of this type: warn the user or fix the problem. In 
this case you might simply tell the user as part of the 
instructions not to type in commas or colons. 

In MAGIC. MENU you will learn how to use a special 
INPUT subroutine that has already taken care of the 
problem; and you’ll learn how to put it in programs like 
SCRAMBLER. It is a more difficult way to fix the program, 
but makes things easier on the user. 

2. If a user types spaces at the beginning or end of the 
sentence halves the two halves are pushed far apart. 

(Try it!) This can be fixed by getting rid of extra leading 
and trailing spaces in each user response, a complex task 
requiring the use of LEFTS and RIGHTS string functions. 
Again, the simpler way of handling the problem, until you 
have a better understanding of Applesoft, is to give the 
user a warning message. 

For now, try adding warnings about these problems at the 
end of the user directions in the first subroutine. If the added 
instructions are too long, you might change the VTAB 4 in 
line 1230 to PRINT. When you are sure the program works, 
save it on a disk. Later you may wish to come back to 
SCRAMBLER and try out some of your advanced techniques 
by correcting the original problems. 
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Program Listing 


0 REM SCRAMBLER - SEPT, 1982 BY B6 & TOG 

1 GOTO 1UUO: REM BEGINNING OF PROGRAM 

2 TEXT : PRINT CHRS (21): HOME : POKE 33,33: HOME : END 

1000 REM THE SCRAMBLER - A SENTENCE SCRAMBLING GAME - 1982 
1010 GOSUB 1180: REM SET OP PROGRAM & DISPLAY DIRECTIONS 
1020 GOSOB 1400: REM INPUT 1ST HALF OF SENTENCES 

1030 GOSUB 1600: REM INPUT 2ND HALF OF SENTENCES 

1040 GOSUB 1800: REM DISPLAY SENTENCES 
1050 REM O.K., WE'RE DONE NOW, SO... 

1060 REM 

1070 REM *** END OF PROGRAM *** 

1080 REM 

1090 REM NOTE: PROGRAMS SHOULD HAVE ONLY 1 EXIT 
1100 TEXT : HOME : VTAB 12 

1110 PRINT "Would you like to play again (Y or N)? : GET INS 

1120 IF INS = "Y" OR INS = "y" THEN TEXT : HOME : GOTO 1020 

1130 IF INS < > "N" AND INS < > "n" THEN 1100 

1140 TEXT : HOME : VTAB 22 

1150 PRINT "Thanks for playing...." 

1155 IF PEEK (6) = 99 AND PEEK (7) = 99 THEN PRINT CHRS (4);"R0N STA 
RTUP": REM SEE NOTES FOLLOWING LINE 9060 IN THE DISK MENU PROGRAM 
1160 END 
1170 REM 

1180 REM *** DIRECTIONS *** 

1190 REM 

1200 PRINT CHRS (21): TEXT : HOME : REM TORN OFF APPLE'S 80-COLUMN TE 
XT CARD, SELECT TEXT, AND CLEAR THE SCREEN 
1210 DIM FIRSTS (999) ,LAST$ (999) : F = 0:S = 0: REM GIVE THE USER 1000 1ST 
AND 2ND STRINGS 

1220 TITLES = "*** THE SCRAMBLER ***": HTAB 21 - LEN (TITLES) / 2: PRINT 
TITLES 

1230 VTAB 4 

1240 PRINT "The scrambler is a word game. You will" 

1250 PRINT "be asked to type the first halves of" 

1260 PRINT "sentences such as 'Edwin cooked'.": PRINT 
1270 PRINT "You will then be asked for the second" 

1280 PRINT "halves of sentences such as 'a banana" 

1290 REM 

1300 PRINT "squash."': PRINT 

1310 PRINT "Type as many as you like; then command" 

1320 PRINT "the computer to combine random halves" 

1330 PRINT "into humorous sentences.": PRINT 
1340 PRINT "The hilarity rises with the number of" 

1350 PRINT "participants: what seems dull to you": PRINT "alone will be 
found hysterically funny" 
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1360 PRINT "by a group of 10 otherwise normal people";: PRINT " — 
nge phenomenon." 

1370 VTAB 23 

1380 INPUT "Press the RETURN key to begin. ";IN$ 

1390 RETURN 

1399 REM 

1400 REM *** GET 1ST HALVES *** 

1410 REM 

1420 HOME : HTAB 9 
1430 PRINT "The first half..." 

1440 VTAB 20 

1450 PRINT "Type the first halves of sentences." 

1460 PRINT "Press RETURN after each entry." 

1470 PRINT "Hold down OPEN-APPLE and press the": PRINT "RETURN key after 
your last entry.";: REM ALWAYS USE A SEMI-COLON AFTER PRINTS ON BOT 
TOM LINE 

1480 F = 0:OAK = 0: REM SET COUNTER TO 0: SET OPEN-APPLE KEY VARIABLE TO 
0 

1490 POKE 34,2: POKE 35,18: HOME : REM SET SCROLLING WINDOW 
1500 INPUT FIRST$(F) 

1510 IF PEEK ( - 16287) > 127 THEN OAK = 1: REM CHECK QUICKLY TO SEE IF 
USER IS PRESSING THE OPEN-APPLE KEY 

1520 IF LEN ( FIRST$( F) ) > 0 THEN F = F + 1: REM ADVANCE COUNTER IF A SU 
CCESSFUL ENTRY 

1530 IF OAK = 0 THEN 1500: REM IN OPEN-APPLE-RETURN NOT PRESSED, LOOP B 
ACK FOR THE NEXT HALF-SENTENCE 
1540 RETURN 
1550 REM 

1600 REM *** GET 2ND HALVES *** 

1610 REM 

1620 TEXT : VTAB 1: HTAB 9 
1630 PRINT "... the second half" 

1640 VTAB 20 

1650 PRINT "Type the second halves of sentences." 

1660 S = 0:OAK = 0: POKE 34,2: POKE 35,18: HOME : REM SET UP SECOND HALF 
SAME WAY AS FIRST 
1670 INPUT LASTS ( S) 

1680 IF PEEK ( - 16287) > 127 THEN OAK = 1: REM CHECK QUICKLY TO SEE IF 
USER IS HOLDING THE OPEN-APPLE KEY 
1690 IF LEN C LASTS ( S) ) > 0 THEN S = S + 1: 

1700 IF OAK = 0 THEN 1670 
1710 RETURN 
1720 REM 

1800 REM ** DISPLAY SENTENCES ** 

1810 REM 
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1820 IF F = 0 OR S = 0 THEN RETURN : REM IF THERE IS NOT AT LEAST 1 COM 
PLETE SENTENCE, CANCEL 
1830 TEXT : HOME : HTAB 9 
1840 PRINT "Scrambled sentences:" 

1850 VTAB 20 

1860 PRINT "Press RETURN for a new sentence." 

1870 PRINT "Press OPEN-APPLE-RETURN to end." 

1880 OAK = 0: POKE 34,2: POKE 35,18: HOME 
1890 VTAB 17: INPUT INS 

1900 IF PEEK ( - 16287) > 127 THEN RETURN : REM IS USER PRESSING OPEN- 
APPLE? YES, THEN RETURN 

1910 FF = RND (1) * F:SS = RND (1) * S: REM SELECT RANDOM SENTENCE 
1920 VTAB 17 

1930 PRINT FIRSTS! FF) ;" ";LAST$(SS): REM AND PRINT IT 
1940 PRINT : PRINT 
1950 GOTO 1890 
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It has been said that in programming the last 10 percent of 
the program takes 90 percent of your time. For instance, say 
you’ve written a program called “Commodity Market 
Forecaster for Oleomargarine Futures.” It only took you two 
hours to write, but you didn’t include any user instructions. 
After all, you know when to plug in corn oil prices, so it 
wasn’t necessary to put in any instructions to yourself. 
Unfortunately, Mr. Brown, your boss, gets wind of your work, 
and would like a copy to run on his Apple computer. It could 
take you another three or four days to include user 
instructions so he could use the program. What to do? Use 
MAGIC. MENU. 

MAGIC. MENU contains five subroutine blocks that 
collectively take care of the most time-consuming, boring, 
and important tasks in making a program usable by others. 
(“Others,” by the way, includes you about two months down 
the road when you run the program again and can’t 
remember what information to put in at the third blinking 
cursor.) 
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The actual code that forms each of the blocks is very 
complex and rather obscure, but this should not keep you 
from studying and using the routines in your programs. You 
needn’t understand how a radio works to find your favorite 
station. In the same way, you can think of these subroutine 
blocks as “black boxes”: give them the input they want, and 
they carry out their jobs. 

The following discussion centers primarily on what each 
block does and how to use it, not on how they work. 


Notes to Advanced Programmers 

MAGIC. MENU and the two programs that follow feature an 
Applesoft version of the Apple lie cursor. Apple Computer 
has made this the standard cursor for all Apple programs so 
that users will always know how to insert and delete 
information. 

The REM statements scattered throughout MAGIC. MENU 
convey a lot of information about how to deal with the 80- 
column capability, how to use HTAB and VTAB, and how to 
read the cursor location. These remarks and the code they 
describe are very useful in formatting the screen. 


How the Five Subroutines Work: A Demonstration 

This section demonstrates how the five subroutines work. 
You clear out the existing main program and put in your own 
main programs that allow you to look at each subroutine as 
a stand-alone block of code. 

If you have not yet run MAGIC. MENU, do so now. Then, to 
clear out everything except the subroutines, type: 

DEL 1000, 62999 
2000 END 

To format the screen to 40-column text, type: 

RUN 2 
TEXT 

Now you can list the program. Lines 0 to 2 of MAGIC. MENU 
are similar to lines 0 to 2 of every other program in 
Appendix E; they were discussed in detail in the explanation 
of SCRAMBLER. 
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The INPUT Routine 

Lines 100 to 299 are the INPUT routine. This routine is an 
extension of the Applesoft statement 

INPUT ; NA$ 

but also uses several special capabilities, such as 
recognizing special keys, defining answer lengths, setting 
default answers, and accepting characters not normally 
accepted in INPUT statements. Line 130 lists all the 
variables used in (and potentially changed by) the routine. 
All good black boxes should do this so you don’t 
accidentally misuse one of these variables in your program. 

This INPUT routine checks to see if the (esc) , ©, or (T) key 
is pressed. If (esc) is pressed, or the © or the ® key is 
held down while another key is pressed, the subroutine is 
exited. The variable ESC equals 1 if (esc) is pressed, 
OAKEY equals 1 if (6) is pressed, and SAKEY equals 1 if ® 
is pressed. AN$ holds whatever the user typed before 
pressing one of these keys; and OAKEY$ and SAKEY$ 
contain the key pressed at the same time as © or ®, 
respectively. If it is necessary for your program, you can 
check the value of these variables to determine if one of 
these keys has been pressed. 

Here is a short main program that uses the INPUT 
subroutine. Type it in and see how the routine works. 


1000 

AI IE = 

1 : HOME 



1010 

PRINT 

"Type in a 

sentence of 

your 


choice 

■■ . 

■ 7 



1 020 

AN$ = 

ts 

II 

Li_ 

GOSUB 100: 

IF 


ESCKE Y 

< > 0 OR 

OAKEY < > 0 

or SAKEY 


< > 0 

THEN 1000 



1 030 
RUN 

PRINT 

AN$ 




The prompt that you want before the INPUT, such as “Type 
in a sentence of your choice,” must be written into the main 
program, since no prompt is given in the subroutine. The 
subroutine makes use of the blinking underline cursor, and it 
accepts input with commas and colons (which are not 
accepted in the standard INPUT statement). 
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This program checks to see if you pressed (esc) , or the gf) 
or (T) with another key. If any of these keys is pressed, the 
program erases the input and begins again. You may wish to 
make your programs do different tasks depending upon 
which key was pressed. 

This program doesn’t make use of the routine’s default 
answer and answer length capabilities. You can limit the 
number of characters the user can enter by setting the 
variable FL (for field length) to a number between 1 and 250. 
This will keep the user from entering too many characters. 
(But you should provide a few more spaces than are 
necessary for the correct answer. Even with Y/N responses it 
is wise to give people a few extra spaces to thrash around 
with.) If you know that most users will answer a certain way 
you may wish to set the default answer by assigning the 
answer to variable AN$. For example, if the default answer is 
yes, you can type 

AN$ = "Y" 

in the program before it goes to the subroutine. When the 
program is run, a Y appears after the prompt. Users who 
wish to answer yes only have to press (return) , while users 
who wish to answer no have to delete the Y and type an N 
instead. 


The GET RETURN Routine 

Lines 300 to 399 are the GET RETURN keypress routine in 
the program. This routine supplies the appropriate cursor 
(blinking checkerboard for the II or II Plus, blinking underline 
for all others), then waits for the user to press (return) . Try 
this: 

DEL 1000, 1030 

1000 PRINT "Please Press RETURN to see the 
Oleomargarine Futures."; 

1010 GOSUB 300 
RUN 

This routine is very useful when you want information to 
remain on the screen until the user is ready to go on, since it 
allows the user to control the speed at which the program 
proceeds. 
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The Screen Formatter Routine 

Lines 400 to 499 are the screen formatter routine. This black 
box performs the equivalent of 

PRINT AN $ 

with three major differences. 

First, it never breaks a word in half between lines. If a word is 
too long to fit at the end of the line, this routine moves the 
entire word down to the next line. This means that you don’t 
have to spend large amounts of time getting instruction 
pages just so, only to find that you left out a word that throws 
off every line all the way down the screen. 

Second, if the computer has an activated 80-column text 
card, this routine properly formats the screen for 80 columns 
instead of 40. 

Third, if the program is run on an earlier Apple computer 
that does not use lowercase letters, the routine converts all 
lowercase letters to uppercase. By using this routine, you 
can take advantage of the lowercase capabilities of later 
Apples but can still run your programs on older Apple 
computers. 

The program expects the contents you want printed to be in 
AN$. It displays in uppercase and lowercase if the fifth 
subroutine, computer identifier, has set AIIE = 1. Try this 
example: 

1000 AIIE = 1 

1010 AN$ = "Margarine used to taste 

horrible and came with the coloring 
in a separate pouch. It has improved 
considerably. Is it good enough now 

to compete with the $4.98 spread?" 
1020 GOSUB 400 

1030 GOSUB 100 

RUN 
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After running it this way, try changing line 1000 to 
1000 A 1 1 E = 0 

and run it again. This is the way it would look on an Apple II 
or II Plus — slow but serviceable. On these models, the 
routine has to scan through each character (after finding the 
fortieth character and counting back to the first word break) 
to see if the character is lowercase. If it is, a formula is used 
to translate the lowercase character into an uppercase 
character for correct Apple II display. (This formula can be 
found on line 445.) You should note that when you list a 
program with lowercase letters on an Apple II or Apple II 
Plus, the lowercase letters are displayed as garbage. The 
translation only works when you run the program. 


The Menu Maker Routine 

Lines 500 to 899 contain the menu maker block. This routine 
creates a menu in minutes, instead of days. First, you must 
give the menu maker the information it needs. To set the 
program title (TITLE$) and the name of the menu 
(SUBTITLES), type 

1000 A 1 1 E = 1 

1010 TITLE$ = "Oleomargarine Futures 
Forecaster 11 

1020 SUBTITLES = "Type of Margarine" 

Next, you enter the menu selections. Type 

1030 MENU$ ( 1 ) = "Corn Oil" 

1040 MENU$(2) = "Sunflower Seed Oil" 

1050 MENU$ (3) = "Cottonseed Oil" 

1060 MENU$ C 4 ) = "Crude Oil" 

1070 MENU$(5) = "End the Program" 

To tell the menu maker that you are finished, enter 

1080 MENU$ (6) = "END" 
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There are no submenus in this example program, so type 
1090 FROM$ = "" 

to set the variable FROM$ equal to a null string. If you had 
more than one menu in your program, FROM$ would be set 
equal to the name of the menu the user had come from to 
get to this menu. When FROM$ has something in it (other 
than a null string), the (esc) key is enabled, and a message 
like “Press the ESC key to return to the main menu” is 
displayed. Pressing (esc) causes the program to return to 
the menu named in the variable FROM$. 

MAGIC. MENU allows you to offer descriptions or extra 
instructions (these are called help screens) for each of the 
menu options. Since there will be no help screens in this 
example, you should set OAKEY to 0. Type 

1100 OAKEY = 0 

Finally, add 

1110 GOSUB 500 
1 120 PRINT AN, AN$ 

Line 1110 calls the menu maker routine, and line 1120 
allows you to see that the correct menu item was placed in 
both AN and AN$. Writing this menu only took a few 
minutes. Now it’s time to find out what will happen, so type 

RUN 

Magic! Of course, all options end the program since you are 
just displaying AN, not using it. From here, you could have 
your program branch to various subroutines dealing with the 
different oils. See the discussion of line 1670 in the section 
Notes on the Rest of MAGIC. MENU for more information 
about how to link the subroutines to the menu items. 
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The Computer Identifier Routine 


Now you can try out the final block, the computer identifier. 
Right now, line 1000 looks like this: 

1 000 A 1 1 E = 1 

which identifies your computer as an Apple lie. To make the 
computer identifier figure out which Apple computer you are 
using, change line 1000 to 

1000 G0SUB 63000 

The computer identifier sets AIIE = 1 if the program is run 
on an Apple lie and 0 if it is run on an Apple II or Apple II 
Plus. It also sets the variable RESULTS to 

• 0 if used on an Apple II or II Plus 

• 32 if used on an Apple lie 

• 64 if used on an Apple lie or lie with 80-column capability 

• 128 if used on an Apple lie with an Extended 80-Column 
Text Card 

The menu maker and screen formatter subroutines are not 
aware that the computer has 80-column capability unless 
you set the variable COL80 = 1. To set this variable when 
the computer has 80-column capability, and to turn on the 
80-column feature, add this line: 

1005 IF RESULTS > = 64 THEN COL80 = 1: 
PRINT CHR$ C 4 ) ; "PR^S" 

Now run the program again. If your computer doesn’t have 
80-column capability, nothing will be different on your menu. 
If you have 80-column capability, your screen will suddenly 
display 80 columns. To go back to 40 columns, just type 

RUN 2 
TEXT 
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Notes on the Rest of MAGIC.MENU 

To get the entire program back again, type 
LOAD MAGIC.MENU 

You have explored the black boxes themselves; now take a 
look at the lines of a program built upon them. There isn’t 
much difficult code in these lines. For the most part, you can 
look at the listing and run the program to figure out what is 
being done. A few lines that bear further comment are 
discussed in this section. 

Line 1010: Each variable encountered during the running of 
a program is put into a variable table that stores the current 
values of the variables. These variables are stored in the 
order in which they are encountered. Any time the program 
looks at or changes the value of a variable, Applesoft 
searches the table starting at the beginning for that variable. 
If you declare the variables your program uses most often 
first in the program, they are stored first in the variable table. 
Your program runs significantly faster as a result because 
Applesoft doesn’t have to search as far for those frequently 
used variables. 

Line 1025: This line checks the value of RESULTS 
(remember, the value of RESULTS depends upon whether 
the computer has 80-column capability). If the computer has 
80-column capability (RESULTS >= 64), this line enables 
the 80-column capability. If you do not want your program to 
use the 80-column capability, you should replace the current 
line with 

1025 PRINT CHR$ (21) 

Line 1360: Users with 80-column capability can look at more 
text on one screen than users with 40-column display. The 
program takes advantage of this by offering more 
information to users with 80-column capability. 

Line 1640 sends the program to the help subroutines if the 
(6) key is pressed. 

Line 1645 goes to the exit subroutine, which sends the user 
back to the DISK. MENU program. 
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Line 1670 sends the user off to the requested subsection of 
the program. ON AN GOSUB 2000, 3000, 4000 goes to a 
subroutine beginning on line 2000 if AN = 1; 3000 if AN = 2, 
4000 if AN = 3; and so on. Note, however, that when you use 
ON. ..GOSUB, there is no logical connection between the 
variable number and the subroutine it sends the program to. 
Menu maker will not allow an illegal number, so error- 
checking for correct numbers in AN is already included. 

Line 2010 does the sort of error-checking you need to think 
about if you want your program to be universal. Parts of your 
program that will only run on a certain machine should be 
clearly labeled, instead of causing the program to crash. 
(You can make your Apple lie operate like an Apple II Plus to 
test your code by setting AIIE and RESULTS to 0, instead of 
using the computer identifier routine.) 


A Few Notes on Logic 

Applesoft BASIC uses a kind of logic called Boolean logic. It 
is based on false and true, zeros and ones. 

When you say 

X = 0 : IF A = 23 THEM X = 14 

you are calling on Applesoft to decide if it is true that A = 
23. If it is true, Applesoft carries out your further 
instructions. The same decisions could be made in a 
different way: 

X = 14 * (A = 23) 

This is a little hard to believe at first. So try it in immediate 
execution, first making A = 23, then making A equal to 
something other than 23. Type 

A = 23 

X = 14 * (A = 23) 

PRINT X 

A = 6 

X = 14 * (A = 23) 

PRINT X 
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When Applesoft encounters a Boolean expression (A = 23), 
it decides whether the expression is true or false. If it is true, 
a 1 is substituted in place of the expression; if it is false, 
Applesoft replaces the expression with a 0. In the first case, 
the expression is true, so a 1 replaces (A = 23), and X = 14 
* 1, or 14. In the second case, the expression is false, so X = 
14 * 0, or 0. (You may explore Boolean logic further in the 
section on IF.. .THEN in the Applesoft BASIC Programmer’s 
Reference Manual.) 

MAGIC. MENU uses many true or false flags to communicate 
between routines. A flag is a variable whose contents 
(usually 1 or 0) indicate whether some condition holds or 
whether some event has occurred. Once the flag has been 
set, the program can determine whether something is true or 
false by checking the flag. In this program, the screen 
formatter routine can determine whether it is being run on 
an Apple lie by checking the flag AIIE, like this: 

IF AIIE = 1 THEN [this is an Apple lie] 

Using Boolean logic, this statement can be shortened to 
read simply 

IF AIIE THEN 

because Applesoft translates the condition (AIIE) as true if 
AIIE > 0 and as false if AIIE = 0. 

A good programming practice is to declare the two variable 
names TRUE and FALSE early in your program: 

1000 FALSE = 0 : TRUE = 1 

Having done so, you can clearly state what you are doing: 

1010 AIIE = TRUE 

1020 IF AIIE = TRUE THEN PRINT "TRUE" 

1030 IF AIIE = FALSE THEN PRINT "FALSE" 
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Many new programmers avoid flags, choosing instead some 
other kind of test. A couple of years ago, an Apple 
programmer needed to get the user’s age in the variable 
YEARS. His subroutine for doing this first asked the user for 
the age in months and years. The routine then divided the 
months by 12, added them to the years, and finally took the 
integer of YEARS + .5 to round it to the nearest year: 

YEARS = INT (YEARS + .5) : RETURN 

When the subroutine ended, the routine that called it 
needed to know if the user had answered successfully, rather 
than just pressing (return) . The programmer discovered 
that he could tell if an age had been successfully found by 
simply testing the variable YEARS: 

1000 IF YEARS THEN 

[go on with the program] 

This worked well until a colleague typed in the age of her 
new baby: no years, two months. The program rounded this 
response to: YEARS = 0. Since program continuation was 
dependent upon getting a number greater than 0, it 
continued to ask for the age of the newborn. This is a clear 
case of needing a flag to indicate that a proper response has 
been received in the subroutine. Use flags whenever 
necessary, and always give them descriptive names. And by 
the way, don’t worry about running out of variable names — 
there are more than 5000 of them! 


Program Listing 

0 REM MAGIC MENU - SEPT, 1982 BY TOG 

1 GOTO 1000 

2 TEXT : PRINT CHR$ (21): HOME : POKE 33,33: END 


100 

REM 

*** INPUT ROUTINE *** 





102 

REM 

SEPT, 1982 BY B. TOGNAZZINI 





103 

REM 

REV2, SEPT 1983 B. TOGNAZZINI 





105 

REM 

USES FLASHING UNDERLINE CURSOR 





110 

REM 

YOU MAY SET THE NUMBER OF CHARACTERS THE 

USER MAY 

TYPE 

(THE 

FIE 


LD LENGTH) IN THE VARIABLE FL 





115 

REM 

A FIELD LENGTH OF 0 ( FL=U) ALLOWS THE MAXIMUM INPUT 



120 

REM 

IF YOU WANT A "DEFAULT" (SUPPLIED-BY-YOU) 

ANSWER, 

PUT 

IT IN 

AN$ 


. FOR EXAMPLE: AN$= "CAT" 





124 

REM 

UPON RETURN, AN$ (ANSWERS) WILL CONTAIN THE INPUT 

FROM 

THE 

USER 

125 

REM 

ESCKEY WILL BE SET TO TRUE (WILL EQUAL 1) 

IF THE 

USER 

PRESSED I 


T TO 

EXIT THE INPUT 
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126 REM SAKEY OR OAKEY WILL BE SET TO TRUE (WILL EQUAL 1) IF THE USER H 
AS PRESSED ANY CHARACTER KEY WHILE HOLDING THE SOLID-APPLE OR OPEN-A 
PPLE KEY, RESPECTIVELY 

127 REM ABOVE 3 KEYS ARE ONLY READ IN AN APPLE HE: PROVIDE SOME OTHER 
METHOD OF SIGNALLING FOR All AND AII+ OWNERS 

130 REM THE ROUTINE USES (AND MAY CHANGE THE VALUES IN) I ,J ,K,L,M,P, FL, 

ES (FOR ESCAPE KEY) ,0A (FOR OPEN-APPLE KEY) ,SA (FOR SOLID-APPLE KEY) 

, FL,I$ ,0 A$,SA$ ,AN$ 

135 REM * TAKE INPUT * 

1 40 I = 5: J = 0:K = 0:L = 0:M = 0:1$ = "":ESC = 0:OA = 0:0A$ = "":SA = 0: 

SA$ = IF FL = 0 THEN FL = 245 

142 IF NOT AIIE THEN INPUT "”;AN$: RETURN 
145 PRINT AN$;:J = LEN ( AN$) 

149 M = PEEK (37) 

153 L = PEEK (36): IF C0L80 THEN IF L = PEEK (1147) THEN L = PEEK (14 

03): REM FIND CURRENT HORIZ POSITION WITH 80 COLUMN CARD TURNED ON 

155 PRINT 1$;" 

160 N = 1: IF PEEK (37) = PEEK (35) - 1 THEN IF L + LEN (1$) > = PEEK 

(33) - 3 THEN N = 0 

165 POKE 36, L: POKE 1403, L: VTAB M + 1 
168 IF LEN (1$) = 0 THEN 1$ = " " 

170 I = I - 1: IF I < 0 THEN K = 1 - K:I = 3 + 8 * NOT K: PRINT CHR$ ( ASC 
(1$) * NOT K + 95 * K * (ASC (1$) < > 95) + 32 * K * NOT ( ASC ( 

1$) < >95)); 

175 POKE 36, L: POKE 1403, L: VTAB M+ 1 
180 P = PEEK ( - 16384): IF P < 128 THEN 170 

185 IF PEEK ( - 16287) > 127 THEN OAKEY = 1 

190 IF PEEK ( - 16286) > 127 THEN SAKEY = 1 

195 POKE - 16368,0 :K = 0:1 = 0 

200 IF OAKEY THEN 0A$ = CHR$ (P - 128):AN$ = AN$ + 1$: PRINT 1$;" ": RETURN 
: REM * OPEN-APPLE KEY 

205 IF SAKEY THEN SA$ = CHR$ (P - 128):AN$ = AN$ + 1$: PRINT 1$;" ": RETURN 
: REM * SOLID-APPLE KEY 

210 IF P > 159 AND P < >255 THEN IF J + LEN (1$) < FL THEN IF N THEN 

AN$ = AN$ + CHR$ (P - 128) :J = J + 1: PRINT CHR$ (P) ; : GOTO 149 
215 IF P < > 255 THEN 240: REM DELETE KEY 

220 IF J THEN PRINT " : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHR$ 

(136); :J = J - 1 
225 IF J = 0 THEN AN$ = "" 

230 IF J THEN AN$ = LEFTS (AN$,J) 

235 GOTO 149 

240 IF P < >136 THEN 265: REM * BACK ARROW KEY 

245 IF J THEN PRINT " "; : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHR$ 
(136) ; : 1$ = RIGHTS (AN$,1) + I$:J = J - 1 
250 IF J = 0 THEN ANS = "" 

255 IF J THEN ANS = LEFTS (AN$,J) 

260 GOTO 149 

265 IF P = 141 THEN ANS = ANS + IS: PRINT IS;" ": RETURN : REM * RETURN 
KEY 

270 IF P < > 149 THEN 294: REM * FORWARD ARROW KEY 

275 IF NOT LEN (IS) THEN 149 

280 ANS = ANS + LEFTS (I$,1):J = J + 1: PRINT LEFTS (I$,1); 

285 IF LEN (IS) = 1 THEN IS = "" 
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290 IF LEN (1$) THEN 1$ = RIGHTS (IS, LEN (IS) - 1) 

292 GOTO 149 

294 IF P = 155 THEN ESCKEY = 1: PRINT : RETURN : REM ESCAPE KEY PRESSED 

296 GOTO 149 
298 REM 


300 REM ** GET RETURN ** 

305 REM USES I,J,K,L,P 
310 IF AIIE THEN 325 

315 GET ANS: IF ASC (ANS) < >13 THEN 315 

320 PRINT : RETURN 
325 I = 0:J = 0:K = 0 

330 I = I - 1: IF I < 0 THEN K = 1 - K:I = 5: PRINT CHRS (32 + 63 * K); 
335 IF I < >5 THEN 355 

340 L = PEEK (36): IF C0L80 THEN IF L = PEEK (1147) THEN L = PEEK (14 
03) : REM FIND CURRENT HORIZ POSITION WITH 80 COLUMN CARD TURNED ON 
345 IF L = 0 THEN POKE 36, PEEK (33): VTAB PEEK (37) 

350 IF L < >0 THEN POKE 36, L - 1 

355 P = PEEK ( - 16384): IF P < > 141 THEN 330: REM NOT A RETURN 

360 PRINT " 

365 IF PEEK (37) = 23 THEN VTAB 23: REM PEEK(37) CONTAINS CURRENT VTAB 
POSITION -1. IF ON BOTTOM LINE (VERY COMMON WITH WAIT- FOR-RETURN-K 
EYS) MOVE UP ONE TO PREVENT SCREEN FROM SCROLLING 
370 PRINT 

375 POKE - 16368,0: RETURN 
399 REM 


400 REM *** SCREEN FORMATTER *** 

401 REM STRING TO BE PRINTED IN ANS 

402 REM IF 80 COLUMN BOARD IS TURNED ON, MAKE SURE COL80 =1. IF BOARD 
IS NOT TO BE USED, MAKE SURE C0L80 = 0. 

403 REM USES I,J,I$ 

404 REM ROUGH EQUIVALENT OF PRINT ANS;" 

405 REM USES AIIE SET BY COMPUTER IDENTIFIER ROUTINE 

406 REM USUALLY LEAVES 1 EXTRA BLANK AT END OF LINE 

407 REM PERFORMS WORD-WRAP AND WILL CONVERT LOWER- TO UPPER-CASE IF USED 

INSIDE AN APPLE II OR 11+ 

410 I = LEN (ANS): IF NOT I THEN RETURN 

411 P = PEEK (36): IF C0L80 THEN IF P = PEEK (1147) THEN P = PEEK (14 

03): REM FIND CURRENT HORIZ POSITION WITH 80 COLUMN CARD TURNED ON 

412 IF NOT P THEN IF I > 1 THEN IF ASC (ANS) = 32 THEN ANS = RIGHTS 
(ANS, I - 1) 

413 IF P + 2 + I < PEEK (33) AND AIIE THEN PRINT ANS;" ";:AN$ = "": RETURN 
: REM EXPRESS CHECK-OUT 
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41 4 IF I > 1 THEN IF RIGHTS (AN$,1) = " " THEN ANS = LEFTS (ANS, I - 1 
) 

417 IF P + I < PEEK (33) THEN IS = ANS: ANS = GOTO 440 

420 J = PEEK (33) - P + 2:1 = J 

425 I = I - 1: IF I THEN IF MIDS (ANS, 1,1) < > " " THEN 425 

430 IF I = 1 THEN I = J 

431 IF I = 0 THEN PRINT : GOTO 410 

435 IS = LEFTS (ANS, I - 1): IF LEN (ANS) > I THEN ANS = RIGHTS (ANS, LEN 
(ANS) - I): REM ISOLATE 1 LINE IN IS 

440 IF AIIE THEN PRINT IS; 

445 IF NOT AIIE THEN K = LEN ( IS) + 1 : FOR I = 1 TO LEN (I$):J = ASC 

( RIGHTS (I$,K - I)): PRINT CHRS (J - 32 * (J > 96 AND J < 123));: NEXT 
I 

447 P = PEEK (36): IF C0L80 THEN IF P = PEEK (1147) THEN P = PEEK (14 
03) 

450 IF LEN (ANS) THEN IF P < >0 THEN PRINT 

455 IF LEN (ANS) THEN 410 

460 IF P < >0 THEN IF MIDS (IS, LEN ( IS) ,1 ) < > " " THEN PRINT " " 

465 RETURN 

499 REM 


500 REM *** MENU MAKER *** 

505 REM SUPPLY PROGRAM TITLE IN TITLES, MENU TITLE IN SUBTITLES, CALLING 
MENU TITLE (WHERE USER CAME FROM) IN FROMS, 0A=1 IF HELP IS AVAILAB 
LE 


510 REM PUT MENU ITEMS IN MENU$(1) THROUGH MENU$(12). REMEMBER TO DIM M 
ENUS (12) IF MORE THAN 10 ITEMS 

515 REM PROGRAM USES INPUT ROUTINE AND SCREEN FORMATTER. ALL VARIABLES 
AFFECTED BY THEM AS WELL AS II, JJ, KK, LL, MM, NN, 00, PP, AN, 11$ A 
RE AFFECTED 

520 REM USER'S CHOICE IS RETURNED IN BOTH ANS AND AN 

525 REM IF FROMS HAS A TITLE IN IT, ESCFLAG WILL BE 1 IF USER WANTS TO G 
0 BACK TO CALLING MENU. MAIN MENUS SHOULD MAKE FROM$= M " (NOTHING) 

530 J = 0:K = 0:J J = 0:KK = 0:LL = 0:MM = 0:NN = 0:00 = 0:AN = 0 
535 00 = OA: REM STORE WHETHER DESCRIPTIONS ARE AVAILABLE 
540 ANS = "" 

545 II = 1 

550 KK = KK + INT ( LEN (MENUS(II)) / (27 + 35 * (C0L80 = 1))): REM APPR 
OXIMATE NUMBER OF EXTRA LINES MENU ITEM WILL TAKE 
555 IF II < 12 THEN IF MENUS (II + 1) < > "End" AND MENUS (II + 1) < > 
"end" AND MENUS ( II + 1) < > "END" THEN II = II + 1: GOTO 55U 
560 LL = II: REM NUMBER OF MENU ITEMS 
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565 NN = 0: IF LL * 2 + KK < 14 THEN NN = 1 : REM DETERMINE IF MENU CAN BE 
DOUBLE-SPACED 

570 MM = 3: IF C0L80 THEN MM = 9: REM SELECT LEFT MARGIN OFFSET: 3 IF 40 
COLUMN, 9 IF 80 COLUMN 

575 JJ = 3 + MM: IF LL > 9 THEN JJ = 4 + MM: REM IF MORE THAN 9 ITEMS, IN 
DENT NAME OF EACH BY 1 MORE 
580 REM 


585 REM * DISPLAY MENU * 

590 TEXT : HOME 

595 AN$ = TITLES: GOSUB 400: POKE 36, PEEK (33) - LEN (SUBTITLES) - 1:AN 
$ = SUBTITLES 
600 GOSUB 400 

605 FOR II = 1 TO PEEK (33): PRINT NEXT : PRINT 

610 REM PRINT SELECTIONS 
615 FOR II = 1 TO LL 
620 HTAB MM: PRINT II;". 

625 VTAB PEEK (37): IF COL80 THEN VTAB PEEK (1531): REM BELOW PRINT M 
OVES DOWN 1 LINE: THIS COMMAND IS A TRICK TO MOVE UP EXACTLY 1 LINE 
FIRST 

630 POKE 32, JJ : POKE 33, PEEK (33) - JJ: PRINT : REM SET "WINDOW" SO THA 
T TEXT OF MENU ITEM IS INDENTED 
635 ANS = MENUS (II): GOSUB 400: REM PRINT MENU ITEM 

640 POKE 32,0: POKE 33, PEEK (33) + JJ: PRINT : REM "RESTORE" FULL WINDO 
W 

645 IF NN THEN PRINT 
650 NEXT II 

655 IF PEEK (37) > 16 THEN PRINT "TOO MANY MENU ITEMS OR TOO LONG LINE 
S.": STOP 

660 TEXT : VTAB 17:AN$ = "Select option >": GOSUB 400: PRINT 
665 FOR II = 1 TO PEEK (33): PRINT : NEXT 

670 IF NOT 00 OR NOT AIIE THEN PRINT : REM IF ROOM, SPACE D0WN1 

675 IF LEN (FROMS) THEN ANS = "For " + FROMS + ": press ESC": GOSUB 400 

680 PRINT 

685 IF AIIE THEN PRINT "To erase: use the DELETE key" 

690 ANS = "To select: type a number from 1 to " + STRS (LL) 

700 GOSUB 400: PRINT 

705 IF NOT 00 THEN 720 

710 IF AIIE THEN PRINT "For descriptions: press OPEN-APPLE-?" 

715 IF NOT AIIE THEN PRINT "FOR DESCRIPTIONS: FOLLOW ANSWER WITH ?" 

720 ANS = "To go to selected item: press RETURN": GOSUB 400: PRINT 
723 IF NOT 00 THEN ANS = "(There are no descriptions available)": GOSUB 
400 

725 FL = 3: ANS = "": REM SET-UP VALUES FOR INPUT ROUTINE BEFORE CALLING I 
T 

730 REM 


735 REM ** GET INPUT FROM USER ** 
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740 VTAB 17: HTAB 17: CALL - 868: HTAB 17 

745 IF AIIE OR NOT LEN (FROMS) THEN GOSUB 100: GOTO 795: REM THE LINE 
S THAT FOLLOW ARE TO PICK UP AN ESC PRESS ON AN APPLE II OR 11+ 

750 I = 0:J = 0:M = PEEK (57) :L = PEEK (36):0AKEY = 0 

755 I = I - 1: IF I < 0 THEN K = 1 - K: I = 5 : J = 1 - J : NORMAL : IF J THEN 
INVERSE 


760 

PRINT " POKE 36, L: 

VTAB M + 

1 






765 

P = PEEK ( - 16384) : IF 

P < 128 

THEN 

755 





770 

NORMAL : REM ABOVE PRINTS A BLINKING 

CURSOR 

THE HARD 

WAY 


775 

IF P = 155 THEN POKE 

- 16368,1 

0 : ESCKEY = 1: 

GOTO 

795 

: REM ESC 

PRESS 


ED FIRST 








780 

L = PEEK (36) : VTAB 20: 

HTAB 1 : 

CALL 

- 868: 

VTAB 

M + 

1: HTAB 

L + 1 

785 

INPUT ANS 








790 

REM 









END OF All AND AII+ 

ROUTINE 







795 

VTAB 19 








800 

IF NOT OAKEY THEN 825 








805 

IF NOT 00 OR OAS < > 

"?" AND 

OAS < 

> ’7” 

THEN 

735: 

REM HELP 

NOT A 


VAILABLE (00 WAS SET TO VALUE OF OAKEY AT BEGINNING OF ROUTINE) OR W 


RONG KEY PRESSED 

810 REM JJ WILL NOW BE USED TO HOLD LENGTH OF AN$ : 

815 JJ = VAL (AN$): IF JJ > 0 AND JJ < = LL THEN II = JJ: GOTO 880: REM 

EXIT MENU FOR HELP 

820 IF JJ = 0 THEN PRINT " — > PLEASE SELECT A NUMBER FIRST < — : CALL 
- 868: PRINT :AN$ = GOTO 735 

825 IF SAKEY THEN 735: REM SOLID- APPLE KEY NOT USED FOR MENU 

830 IF ESCKEY THEN IF LEN (FROMS) THEN 880: REM IF ESCAPE KEY IS PRESS 
ED, MENU IS EXITED 

835 JJ = VAL (AN$) : IF JJ > 0 AND JJ < = LL THEN II = JJ: REM ISOLATE N 

UMBER FROM ANS AND MAKE II EQUAL IT 

840 IF LEN (ANS) = 0 THEN 735 

845 IF 00 THEN IF NOT AIIE AND ( RIGHTS (AN$,1) = "?" OR RIGHTS (ANS, 

1) = "/") THEN IF II > 0 AND II < = LL THEN OAKEY = 1: GOTO 880 

850 IF LEN (ANS) THEN K = 0: FOR I = 1 TO LEN (AN$):J = ASC ( RIGHTS 

(AN$,I)):K = K + (J < >32 AND (J < 48 OR J > 57)): NEXT I: IF K THEN 
PRINT " — > PLEASE USE DIGITS CALL - 868: PRINT :AN$ = 

GOTO 735 

855 REM ABOVE LINE CHECKS FOR PRESENCE OF NON-NUMERIC CHARACTERS OTHER T 
HAN SPACE IN THE LINE; IF FOUND, THE LINE IS REJECTED 

860 IF NOT JJ THEN IF LEN (ANS) THEN K = 0: FOR I = 1 TO LEN (AN$):J 

= ASC ( RIGHTS (ANS, I) ) :K = K + (J = 48) : NEXT I: IF NOT K THEN PRINT 
" — > PLEASE USE DIGITS CALL - 868: PRINT :AN$ = GOTO 

735 

865 REM ABOVE LINE CHECKS FOR A SINGLE SPACE AS ANSWER (OTHERWISE, A SPA 
CE IS A ZERO) 

870 IF JJ > LL THEN PRINT " — > ";JJ;" IS TOO LARGE : CALL - 

868: PRINT :AN$ = GOTO 735 

875 IF JJ < 1 THEN PRINT " — > 0 IS TOO SMALL CALL - 868:A 

NS = GOTO 735 

880 AN = II: TEXT : HOME : RETURN : REM EXIT POINT FOR MENU PROGRAM 

885 REM 
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1000 REM *** MAIN PROGRAM *** 

1010 I = 0: AN$ = "" : J = 0:1$ = "":K = 0: REM DECLARE MOST OFTEN USED VARI 
ABLES FIRST FOR SPEED. 

1017 GOSUB 63000: REM FIND OUT IF AIIE OR NOT 

1020 IF RESULTS = 96 THEN RESULTS = 32 

1021 IF RESULTS = 160 THEN RESULTS = 128 

1025 IF RESULTS > = 64 THEN COL80 = 1: PRINT CHR$ (4);"PR#3": REM IF A 
N 80-COLUMN CARD IS PRESENT, USE IT. IF YOU DON'T WANT IT, CHANGE T 
HE LINE TO: 

1025 PRINT CHR$ (21 ) 

1030 TEXT : PRINT : HOME : REM TEXT CLEARS ANY OLD WINDOWS: PRINT CLEARS 
OUT ANY OLD HTAB AND VTAB INFORMATION: HOME CLEARS THE SCREEN 

1040 PRINT : HOME 

1050 AN$ = "*** Magic Menu ***" : POKE 36, ( PEEK (33) - LEN ( AN$) ) / 2: GOSUB 
400: PRINT : REM CENTER TITLE 

1060 PRINT :AN$ = "Magic Menu has five basic subroutines upon which you 
can build your programs:" 

1070 GOSUB 400: PRINT : IF C0L80 THEN PRINT : REM BY CHANCE, THE SECOND 
LINE IS JUST LONG ENOUGH TO CAUSE AN EXTRA CARRIAGE RETURN IN 40-C0 
LUMN MODE 

1080 AN$ = "1. COMPUTER IDENTIFIER: says you are now using an Apple": GOSUB 
400 

1090 IF RESULT = 0 THEN AN$ = "II OR 11+ ." 

1100 IF RESULT = 32 THEN AN$ = "He." 

1110 IF RESULT = 64 THEN AN$ = "lie with an 80-Column Card." 

1120 IF RESULT = 128 THEN AN$ = "lie with a Memory-Expansion Card." 

1130 IF COL80 THEN GOSUB 400: AN$ = "The other four routines use the inf 

ormation from COMPUTER IDENTIFIER to let your software take full adv 
antage of whatever Apple computer it is run on." 

1140 GOSUB 400: PRINT : PRINT 

1150 AN$ = "2. SCREEN FORMATTER: ": GOSUB 400 

1160 AN$ = "controls text display so that lines are ended between words i 
nstead of in the middle of them." 

1170 IF COL80 THEN GOSUB 400:AN$ = "It also automatically converts all 
lower-case letters to capitals when the program is run on an Apple I 
I or an Apple II+." 

1180 GOSUB 400: PRINT : IF C0L80 THEN PRINT 

1190 AN$ = "3. MENU MAKER: lets you create uniform, friendly menus in min 
utes, instead of days. (A sample menu follows.)" 

1200 GOSUB 400: PRINT : PRINT 

1210 AN$ = "4. INPUT: is the flashing-underline cursor routine you learne 
d on Apple Presents .. .APPLE ." : GOSUB 400 

1220 AN$ = "": IF AIIE THEN AN$ = "(Pick 1 from menu.)" 

1230 IF C0L80 THEN AN$ = " (To reacquaint yourself with this input routi 
ne, select option 1 from the menu that follows.) 

1240 GOSUB 400: PRINT : PRINT 

1250 AN$ = "5. GET RETURN: waits for you to press RETURN. It is waiting 

now. .." 

1260 GOSUB 400: PRINT : PRINT 
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1270 AN$ = "Press RETURN to continue.": GOSUB 400: GOSUB 300: REM PRINT P 
ROMPT: WAIT FOR A RETURN 
1299 REM 


1300 REM *** "help" SCREEN *** 

1310 HOME 

1315 IF C0L80 THEN VTAB 4 

1320 AN$ = "A few words about the sample menu:" 

1330 GOSUB 400: PRINT : PRINT : PRINT 

1340 A NS = "The following menu has six selections, only two of which actu 
ally do something. The first selection shows you a familiar example 
of the flashing-cursor input routine; the last selection exits the 
program ." 

1350 GOSUB 400 

1360 IF C0L80 THEN AN$ = " The other four selections are there to take u 
p space on the menu and in the program, so you can see how a more el 
aborate program would be structured.": GOSUB 400 

1370 PRINT : PRINT 

1375 IF C0L80 THEN PRINT 

1380 AN$ = "The Menu Maker enables you to give a description of each menu 
item, so the user needn't first wade through pages of " + CHR$ (34 
) + "directions" + CHR$ (34) + ":" 

1390 GOSUB 400 

1400 A NS = "to see the description of option 1, type" 

1410 GOSUB 400 

1420 AN$ = "1? RETURN": IF AIIE THEN AN$ = "1, then press OPEN-APPLE-?" 

1430 GOSUB 400: PRINT : PRINT 

1435 IF C0L80 THEN PRINT 

1440 AN$ = "Explore the menu, then review the listings in Appendix E of t 
he Applesoft Tutorial manual for details on how to use these routine 
s in your own programs." 

1450 GOSUB 400: PRINT 

1460 VTAB 24:AN$ = "Press RETURN to go to the menu.": GOSUB 400: GOSUB 3 
00 

1499 REM 


1500 REM ** SAMPLE MAIN MENU ** 

1510 REM ** MAIN MENU LOOP ** 

1520 TITLES = "Magic Menu": REM TITLE OF MENU 

1530 SUBTITLES = "Main Menu": REM TITLE OF MENU OR SUBSECTION OF PROGRAM 
1540 FROMS = "": IF PEEK (6) = 99 AND PEEK (7) = 99 THEN FROMS = "the D 
isk Menu" : REM SEE NOTES FOLLOWING LINE 9060 OF DISK MENU PROGRAM 


1550 MENU$(1) 
1560 MENUS (2) 
1570 MENU$(3) 
1580 MENUS (4) 
1590 MENUS (5) 
1600 MENUS (6) 


"A sample of the input routine" 

M II 
II II 
II II 
H II 

"Quit: End the program" 
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1605 IF PEEK (6) = 99 AND PEEK (7) = 99 THEN MENU$(6) = "End the progr 
am and return to the Disk Menu": REM SEE NOTES FOLLOWING LINE 9060 0 
F DISK MENU 

1610 MENUS (7) = "END": REM MENU PROGRAM KEEPS DISPLAYING ITEMS UNTIL IT F 
INDS THE WORD "END" 

1620 OAKEY = 1: REM HELP AVAILABLE; OPEN- APPLE KEY WILL BE READ 
1630 GOSUB 500 

1640 IF OAKEY THEN GOSUB 1810: GOTO 1510: REM "HELP" ASKED FOR 
1645 IF ESKEY THEN GOTO 7000: REM RETURN TO DISK MENU 
1650 ANS = "" 

1660 VTAB 8 

1670 ON AN GOSUB 2000,3000,4000,5000,6000,7000: REM RETURN PRESSED, SO G 

0 TO THE SELECTED SECTION 
1680 VTAB 24 

1685 IF AN < >1 THEN POKE 36,0: IF C0L80 THEN POKE 1147,255: REM THE 

SE 2 POKES ARE EQUIVALENT TO HTAB 1, BUT WORK IN EITHER 40 OR 80 COL 
UMN MODE 

1690 ANS = "Press RETURN for the menu.": GOSUB 400 
1700 GOSUB 300: REM WAIT FOR RETURN 

1705 IF C0L80 THEN VTAB 22: PRINT : PRINT CHRS (4);"PR#3": REM OPTION 

1 TURNS OFF 80-C0L CARD (IF ANY). THIS TURNS IT BACK ON 
1710 GOTO 1510 

1720 REM 


1800 REM *** GO TO HELP *** 

1810 TEXT : HOME : VTAB 8 
1820 HOLDS = ANS 

1830 ON AN GOSUB 9000,9200,9300,9400,9500,9600,9725,9825,9925 
1850 ANS = "Press RETURN to go to the menu.": GOSUB 400 
1860 GOSUB 300: REM WAIT FOR RETURN 
1870 ANS = HOLDS 
1880 RETURN 

1890 REM BLANK LINES ARE DONE BY PRESSING THE DOWN-ARROW KEY 


2000 REM *** INPUT SAMPLE *** 

2010 IF NOT AIIE THEN ANS = "SORRY, THIS SAMPLE WORKS ONLY ON AN APPLE 
HE COMPUTER.": VTAB 10: GOSUB 400: PRINT : RETURN 
2015 PRINT CHRS (21): REM TURN OFF 80 COLUMN MODE IF IT IS ON. TRY REM 
OVING THIS LINE TO SEE EFFECT ON PROGRAM 
2020 HOME :HT = 1: IF PEEK (33) > 40 THEN HT = 21: HTAB HT 
2030 PRINT "Correct the answer in the box to read": GOSUB 400: PRINT 
2040 ANS = "A herd of cattle" 

2050 II = ( PEEK (33) - LEN (ANS)) / 2: POKE 36,11: POKE 1403,11: REM "P 
OKE 36,X:P0KE 1403, X" IS THE SAME AS HTAB X-1 , EXCEPT IT WORKS WITH 
EITHER 40 OR 80-COLUMN MODES 
2055 GOSUB 400: PRINT 
2060 POKE 36,11: PRINT " " 
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2070 HTAB HT:AN$ = "by doing the following:": GOSUB 400: PRINT : PRINT 
2075 HTAB HT + 1 

2080 AN$ = "1. Press left arrow to back up to the": GOSUB 400: PRINT 
2085 HTAB HT + 4 

2090 AN$ = "right of the " + CHR$ (34) + "t" + CHR$ (34) + " in the wor 
d " + CHR$ (34) + "lot" + CHR$ (34): GOSUB 400: PRINT 
2092 PRINT 
2095 HTAB HT + 1 

2100 AN$ = "2. Press the DELETE key several times": GOSUB 400: PRINT 
2105 HTAB HT + 4 

2110 AN$ = "to erase the words " + CHR$ (34) + "whole lot" + CHR$ (34): 

GOSUB 400: PRINT : PRINT 
2115 HTAB HT + 1 

2120 AN$ = "3. Type " + CHR$ (34) + "herd" + CHR$ (34): GOSUB 400: PRINT 
: PRINT 

2125 HTAB HT + 1 

2130 A NS = "4. Now press the RETURN key to": GOSUB 400: PRINT 
2135 HTAB HT + 4 

2140 ANS = "accept the entire answer": GOSUB 400: PRINT 
2200 REM BOX 
2220 HTAB HT + 2 

2230 PRINT " " 

2240 FOR I = 0 TO 4: HTAB HT + 1 : PRINT "| 

|": NEXT : VTAB PEEK (37) 

2250 HTAB HT + 2: PRINT " " 

2260 VTAB 19: HTAB HT + 4 

2270 ANS = "What is a " + CHRS (34) + "drift" + CHRS (34) + "?": GOSUB 
400: PRINT : PRINT 
2280 HTAB HT + 5 
2290 PRINT "> "; 

2300 REM GET INPUT 

2310 FL = 30: REM LENGTH OF FIELD 

2320 ANS = "A whole lot of cattle": REM THE "default" ANSWER (SUPPLIED B 
Y THE PROGRAM - THE USER CAN CHANGE IT) 

2330 GOSUB 100-: REM INPUT 
2335 VTAB 24 

2340 IF ANS = "A herd of cattle" THEN ANS = "Perfect! ": GOSUB 400 
2350 IF ANS = "A HERD of cattle" THEN ANS = "Very good!": GOSUB 400 
2360 RETURN 

3000 ANS = "Sample routine number 2": GOSUB 400 

3999 RETURN 

4000 ANS = "Sample routine number 3": GOSUB 400 

4999 RETURN 

5000 ANS = "Sample routine number 4": GOSUB 400 

5999 RETURN 

6000 ANS = "Sample routine number 5": GOSUB 400 

6999 RETURN 

7000 REM END 

7005 PRINT : REM DISK COMMANDS (SEE NEXT LINE) WILL NOT WORK IF THERE IS 
AN "OPEN" PRINT COMMAND SUCH AS A "PRINT;" OR "PRINT,". THEREFORE, 
ALWAYS DO A "PRINT" BEFORE ISSUING A DOS COMMAND 
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7010 IF PEEK (6) = 99 AND PEEK (7) = 99 THEN PRINT CHR$ (4);"RUN DIS 
K.MENU" : END 

7020 REM ABOVE LINE RUNS DISK MENU IF DISK MENU ASKED IT TO. SEE NOTES 
FOLLOWING LINE 9060 OF DISK MENU. 

7050 TEXT : HOME : TEXT : END : REM CLEAN UP & GO AWAY 

9000 REM *HELP SCREENS* 

9100 REM 

9105 AN$ = "Option 1: the Apple lie Input Routine" 

9107 VTAB 1 

9110 HTAB ( PEEK (53) - LEN ( AN$) ) / 2 
9115 GOSOB 400: PRINT : PRINT 

9117 IF COL80 THEN VTAB 7: REM A DIFFERENT SPACING LOOKS MORE PLEASING 
IN 80-COLOMN MODE 

9120 AN$ = "The Apple lie is equipped with a full ASCII keyboard, includi 
ng the DELETE key, a new key for the Apple II series.": GOSOB 400 
9122 PRINT : IF C0L80 THEN PRINT : REM BY COINCIDENCE, THE ABOVE SENTEN 
CE, IN 40-COLUMN MODE, IS JUST LONG ENOUGH TO "force" AN EXTRA CARRI 
AGE RETURN. SO, TO GET THE EXTRA SPACE IN 80-COLUMN MODE, WE MUST P 
RINT ONCE MORE 

9125 AN$ = "Using the DELETE key and the flashing-cursor input routine in 
eluded within this program,": GOSUB 400 
9130 AN$ = "you can scan forward and backward through your answers, inser 
ting and deleting characters at will.": GOSUB 400 
9135 AN$ = " The input routine automatically gives the standard Applesof 
t BASIC blinking cursor to users of the Apple II or 11+.": GOSUB 400 

9145 PRINT : PRINT 

9150 AN$ = "The input routine, along with the other routines in MAGIC MEN 
U, will enable you to easily create humanized programs.": GOSUB 400 
9155 GOSUB 400: PRINT : PRINT 

9160 AN$ = "Since you are using an Apple II or II+, you cannot take advan 
tage of this cursor directly, but using it in your programs will mak 
e it easier for others." 

9165 IF AIIE THEN AN$ = "Select option 1 to reacquaint yourself with the 
underline cursor." 

9170 GOSUB 400 

9180 IF C0L80 THEN PRINT : PRINT 

9199 RETURN 

9200 AN$ = "There is no description available for this option.": GOSUB 40 
0 

9250 PRINT : VTAB 24 

9299 RETURN 

9300 AN$ = "There is no option available for this description.": GOSUB 40 
0 

9350 PRINT : VTAB 24 

9399 RETURN 

9400 AN$ = "Sample help screen for option 4": GOSUB 400 
9450 PRINT : VTAB 24 

9499 RETURN 

9500 AN$ = "Sample help screen for option 5": GOSUB 400 
9550 PRINT : VTAB 24 

9599 RETURN 
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9600 AN$ = "This option Lets you gracefully exit the program.": UOSUB 400 

9650 PRINT : VTAB 24 
9699 RETURN 
10000 RETURN 

63000 REN *** COMPUTER ID *** 

63010 REM *** AIIE OR NOT? *** 

63020 REM USES I,J,K,RE — SETS AIIE TO 1 IF IT IS AN AIIE 
63030 REM SETS RESULT DEPENDENT ON AVAILABLE HARDWARE 

63040 REM RESULTS OF 0 MEANS NOT A / / E; 32 MEANS A//E BUT NO 80 COLUMNS; 

64 MEANS A//E WITH 80 COLUMNS BUT NO AUX MEM 
63045 REM RESULTS OF 96 MEANS A//C WITH 80-COLUMN SWITCH SET TO 40 COLUM 
NS; 128 MEANS A//E WITH AUX MEM; 160 MEANS A//C WITH 80-COLUMN SWITC 
H SET TO 80 COLUMNS 

63050 BY = PEEK (49048) :J = 128: FOR I = 7 TO 0 STEP - 1: IF BY > = J THEN 

B( I) = 1:BY = BY - J 


63060 

J = 

INT (J 

/ 2) 

: NEXT 



63070 

IF 

B(7) < 

> 1 

THEN RESULTS = 0 



63075 

IF 

B( 7) = 

1 AND 

B(3) < > 1 THEN 

RESULTS = 

32 

63080 

IF 

BC7) = 

1 AND 

B(3) = 1 THEN RESULTS = 96 


63085 

IF 

RESULTS 

= 32 

AND B(1 ) = 1 THEN 

RESULTS = 

64 

63090 

IF 

RESULTS 

= 64 

AND B(4) = 1 THEN 

RESULTS = 

128 

63095 

IF 

RESULTS 

= 96 

AND PEEK (49248) 

< 128 THEN RESULTS 

63100 

IF 

RESULTS 

< > 

0 THEN AIIE = 1 



63200 

RETURN 






D 


I DISK.MENU 


DISK. MENU was written in two hours flat. In fact, it wasn’t 
really written; the author used MAGIC. MENU to create 
DISK.MENU. (Soon you’ll be able to do the same!) 

The process was pretty straightforward. After loading in 
MAGIC. MENU, the author took out everything no longer 
needed, changed the names of the MENU$s, and polished 
off the submenus. All done. 

Explore this program enough to become familiar with it. 
When you write your own programs using the MAGIC. MENU 
program, use DISK.MENU as a foundation. You can still refer 
to the MAGIC. MENU listing for details, and you’ll get the 
added speed and reduced size of the compressed 
DISK.MENU version. 
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Line 1030 makes the program skip the initial instructions if 
DISK. MENU has set locations 6 and 7 to 99, meaning it’s not 
the user’s first time through. See the discussion of line 9060 
that follows. 

Lines 1047 to 1075 are the text of DISK. MENU. Because the 
screen formatter subroutine from MAGIC. MENU 
automatically straightens out unformatted text, the author 
didn’t have to be careful about line breaks when adding 
these lines. 

Line 3060 was actually included because the author wanted 
to test whether menu maker would handle such a long line 
properly. 

Lines 6000 to 6999 are the routine that simulates typing the 
CATALOG command. The command is actually issued in the 
normal manner by line 6080. ProDOS commands can be 
executed from within an Applesoft program by printing a 
string that consists of a CONTROL-D followed by the 
ProDOS command. Since CHR$(4) is the ASCII code for 
CONTROL-D, and TITLES has been set to “CAT” in line 
6030, line 6080 produces a CAT listing on the screen. 

Line 9060 is the key to why the appendix programs all come 
back to DISK. MENU. The problem is to communicate among 
programs with a flag: if the flag is set (if DISK. MENU has 
been run), come back; if not, don’t come back. Standard 
variables can’t be used for flags between programs because 
all variables are cleared to 0 when a new program is run. But 
many memory locations aren’t affected by Applesoft. In this 
case, the author chose locations 6 and 7, and placed the 
arbitrary number 99 in both locations with POKE 
statements. The other programs check locations 6 and 7 
(with PEEK statements) to determine whether this program 
has been run. These memory locations are not cleared until 
the system is rebooted. (By the way, the odds of both 
locations having 99 in them are only 1 in 65,536 — a pretty 
good indication that only when DISK. MENU is run will 99 
show up in these two locations.) 
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Otherwise, there is very little new and interesting in 
DISK. MENU. This is exactly the point of using 
MAGIC. MENU: it enables a programmer to create in an 
extremely short period of time a functional, useful program 
using standard inputs, clear instructions, and friendly 
menus. It took more than a month of work to write the 
subroutine block package on which this program is based; it 
takes only a few hours to grow something out of it. 


Program Listing 

0 REM DISK MENU - SEPT 1932 - BY TOG 

1 GOTO 100U 

2 TEXT : PRINT CHR$ (21): HOME : POKE 33,33: END 
1U0 REM *** INPUT ROUTINE *** 

102 REM SEPT, 1982 BY B. TOGNAZZINI 

103 REM REV2, SEPT 1983 B. TOGNAZZINI 
135 REM * TAKE INPUT * 

140 I = 5: J = 0:K = 0:L = U:M = 0:1$ = "":ESC = 0:0A = 0:0A$ = M ":SA = 0: 

SA$ = IF FL = 0 THEN FL = 245 

142 IF NOT AIIE THEN INPUT ,M, ;AN$: RETURN 
145 PRINT AN$ ; : J = LEN CANS) 

149 M = PEEK (37) 

153 L = PEEK (36): IF COL80 THEN IF L = PEEK (1147) THEN L = PEEK (14 

03): REM FIND CURRENT H0RIZ POSITION WITH 80 COLUMN CARD TURNED ON 

155 PRINT 1$;" 

160 N = 1: IF PEEK (37) = PEEK (35) - 1 THEN IF L + LEN (1$) > = PEEK 

(33) - 3 THEN N = 0 

165 POKE 36, L: POKE 1403, L: VTAB M + 1 
168 IF LEN (1$) =0 THEN 1$ = " " 

170 I = I - 1: IF I < 0 THEN K = 1 - K:I = 3 + 8 * NOT K: PRINT CHR$ ( ASC 
(1$) * NOT K + 95 * K * (ASC (1$) < > 95) + 32 * K * NOT ( ASC ( 

1$) < >95)); 

175 POKE 36, L: POKE 1403, L: VTAB M+ 1 
180 P = PEEK ( - 16384): IF P < 128 THEN 170 

185 IF PEEK ( - 16287) > 127 THEN OAKEY = 1 

190 IF PEEK ( - 16286) > 127 THEN SAKEY = 1 

195 POKE - 16368,0 :K = 0:1 = 0 

200 IF OAKEY THEN 0A$ = CHR$ (P - 128):AN$ = AN$ + 1$: PRINT 1$;" ": RETURN 

: REM * OPEN-APPLE KEY 

205 IF SAKEY THEN SA$ = CHR$ (P - 128):AN$ = AN$ + 1$: PRINT 1$;" ": RETURN 
: REM * SOLID-APPLE KEY 

210 IF P > 159 AND P < > 255 THEN IF J + LEN (1$) < FL THEN IF N THEN 

AN$ = AN$ + CHR$ (P - 128) :J = J + 1 : PRINT CHR$ (P);: GOTO 149 
215 IF P < > 255 THEN 240: REM DELETE KEY 

220 IF J THEN PRINT " : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHR$ 

(1 36) ; : J = J - 1 
225 IF J = 0 THEN AN$ = "" 

230 IF J THEN AN$ = LEFTS (AN$,J) 
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235 GOTO 149 

240 IF P < > 136 THEN 265: REM * BACK ARROW KEY 

245 IF J THEN PRINT " : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHR$ 

(136); :I$ = RIGHTS (AN$,1) + I$:J = J - 1 
250 IF J = 0 THEN ANS = "" 

255 IF J THEN ANS = LEFTS (AN$,J) 

260 GOTO 149 

265 IF P = 141 THEN ANS = ANS + IS: PRINT IS;" ": RETORN : REM * RETORN 
KEY 

270 IF P < > 149 THEN 294: REM * FORWARD ARROW KEY 

275 IF NOT LEIM (IS) THEN 149 

280 ANS = ANS + LEFTS (I$,1):J = J + 1: PRINT LEFTS (I$,1); 

285 IF LEN (IS) = 1 THEN IS = "" 

290 IF LEN (IS) THEN IS = RIGHTS (IS, LEN (IS) - 1) 

292 GOTO 149 

294 IF P = 155 THEN ESCKEY = 1: PRINT : RETORN : REM ESCAPE KEY PRESSED 

296 GOTO 149 
298 REM 
300 REM 

** GET RETORN ** 


310 IF AIIE THEN 325 

315 GET ANS: IF ASC (ANS) < > 13 THEN 315 

320 PRINT : RETURN 
325 I = 0:J = 0:K = 0 

330 1=1-1: IF I < 0 THEN K = 1 - K:I = 5: PRINT CHRS (32 + 63 * K); 
335 IF I < >5 THEN 355 

340 L = PEEK (36): IF COL80 THEN IF L = PEEK (1147) THEN L = PEEK (14 
03) 

345 IF L = 0 THEN POKE 36, PEEK (33): VTAB PEEK (37) 

350 IF L < >0 THEN POKE 36, L - 1 

355 P = PEEK ( - 16384): IF P < > 141 THEN 330 

360 PRINT " "; 

365 IF PEEK (37) = 23 THEN VTAB 23 
370 PRINT 

375 POKE - 16368,0: RETORN 
400 REM 


*** SCREEN FORMATTER *** 


410 I = LEN (ANS): IF NOT I THEN RETURN 

411 P = PEEK (36): IF C0L80 THEN IF P = PEEK (1147) THEN P = PEEK (14 

03) 

412 IF NOT P THEN IF I > 1 THEN IF ASC (ANS) = 32 THEN ANS = RIGHTS 
(ANS, I - 1) 

413 IF P + 2 + I < PEEK (33) AND AIIE THEN PRINT ANS;" ";:AN$ = "": RETURN 
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414 IF I > 1 THEN IF RIGHTS (AN$,1) = " " THEN ANS = LEFTS (ANS, I - 1 
) 

417 IF P + I < PEEK (33) THEN IS = ANS : ANS = GOTO 440 
420 J = PEEK (33) - P + 2:1 = J 

425 I = I - 1: IF I THEN IF MIDS (ANS, 1,1) < > " " THEN 425 

430 IF I = 1 THEN I = J 

431 IF I = 0 THEN PRINT : GOTO 410 

435 IS = LEFTS (ANS, I -1): IF LEN (ANS) > I THEN ANS = RIGHTS (ANS, LEN 
(ANS) - I) 

440 IF AIIE THEN PRINT IS; 

445 IF NOT AIIE THEN K = LEN (IS) + 1: FOR I = 1 TO LEN (I$):J = ASC 

( RIGHTS (I$,K - I)): PRINT CHRS (J - 32 * (J > 96 AND J < 123));: NEXT 
I 


447 

P = PEEK (36): IF COL80 THEN 

IF 

P = PEEK (1147) THEN P = 

PEEK (14 


03) 




450 

IF LEN (ANS) THEN IF P < > 

0 

THEN PRINT 


455 

IF LEN (ANS) THEN 410 




460 

IF P < >0 THEN IF MIDS (IS 

/ 

LEN (I$),1) < > " " THEN 

PRINT " " 

465 

/ 

RETURN 




500 

REM 





*** MENU MAKER *** 


530 J = 0 :K = 0:J J = 0:KK = 0:LL = 0:MM = 0:NN = 0:00 = 0:AN = 0 
535 00 = OA 
540 ANS = "" 

545 II = 1 

550 KK = KK + INT ( LEN (MENUS(II)) / (27 + 35 * (C0L80 = 1))) 

555 IF II < 12 THEN IF MENUS (II + 1) < > "End" AND MENUSUI + 1) < > 
"end" AND MENUS (II + 1) < > "END" THEN II = II + 1: GOTO 550 
560 LL = II 

565 NN = 0: IF LL * 2 + KK < 14 THEN NN = 1 
570 MM = 3: IF COL80 THEN MM = 9 
575 JJ = 3 + MM: IF LL > 9 THEN JJ = 4 + MM 
590 TEXT : HOME 

595 ANS = TITLES: GOSUB 400: POKE 36, PEEK (33) - LEN (SUBTITLES) - 1 : AN 
$ = SUBTITLES 
600 GOSUB 400 

605 FOR II = 1 TO PEEK (33): PRINT : NEXT : PRINT 

615 FOR II = 1 TO LL 

620 HTAB MM: PRINT II;". "; 

625 VTAB PEEK (37): IF C0L80 THEN VTAB PEEK (1531) 

630 POKE 32, JJ : POKE 33, PEEK (33) - JJ: PRINT 

635 ANS = MENUS (I I) : GOSUB 400 

640 POKE 32,0: POKE 33, PEEK (33) + JJ: PRINT 

645 IF NN THEN PRINT 

650 NEXT II 
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655 


IF PEEK (37) > 16 THEN PRINT "TOO MANY MENU ITEMS OR TOO LONG LINE 
S.": STOP 

660 TEXT : VTAB 17:AN$ = "Select option >": GOSUB 400: PRINT 
665 FOR II = 1 TO PEEK (33): PRINT : NEXT 

670 IF NOT 00 OR NOT AIIE THEN PRINT 

675 IF LEN ( FROM$) THEN AN$ = "For " + FROMS + ": press ESC": GOSUB 400 
680 PRINT 

685 IF AIIE THEN PRINT "To erase: use the DELETE key" 

690 ANS = "To select: type a number from 1 to " + STR$ (LL) 

700 GOSUB 400: PRINT 

705 IF NOT 00 THEN 720 

710 IF AIIE THEN PRINT "For descriptions: press OPEN-APPLE-?" 

715 IF NOT AIIE THEN PRINT "FOR DESCRIPTIONS: FOLLOW ANSWER WITH ?" 

720 AN$ = "To go to selected item: press RETURN": GOSUB 400: PRINT 
723 IF NOT 00 THEN AN$ = "(There are no descriptions available)": GOSUB 
400 

725 FL = 3: AN$ = "" 

735 REM 

740 VTAB 17: HTAB 17: CALL - 868: HTAB 17 

745 IF AIIE OR NOT LEN (FROMS) THEN GOSUB 100: GOTO 795 

750 I = 0:J = 0:M = PEEK (37) :L = PEEK (36):0AKEY = 0 

755 1=1-1: IF I < 0 THEN K = 1 - K: I = 5: J = 1 - J : NORMAL : IF J THEN 
INVERSE 

760 PRINT " ";: POKE 36, L: VTAB M+ 1 

765 P = PEEK ( - 16384): IF P < 128 THEN 755 

770 NORMAL 

775 IF P = 155 THEN POKE - 16368,0:ESCKEY = 1: GOTO 795 

780 L = PEEK (36): VTAB 2U: HTAB 1: CALL - 868: VTAB M+ 1: HTAB L + 1 

785 INPUT " M ;AN$ 

795 VTAB 19 

800 IF NOT OAKEY THEN 825 

805 IF NOT 00 OR OAS < > "?" AND 0A$ < > "/" THEN 735 

815 JJ = VAL (ANS): IF JJ > 0 AND JJ < = LL THEN II = JJ: GOTO 880 

820 IF JJ = 0 THEN PRINT " — > PLEASE SELECT A NUMBER FIRST < — CALL 

- 868: PRINT :AN$ = "": GOTO 735 
825 IF SAKEY THEN 735 

830 IF ESCKEY THEN IF LEN (FROMS) THEN 880 

835 JJ = VAL (ANS): IF JJ > 0 AND JJ < = LL THEN II = JJ 

840 IF LEN (ANS) = 0 THEN 735 

845 IF 00 THEN IF NOT AIIE AND ( RIGHTS (AN$,1) = "?" OR RIGHTS (ANS, 

1) = "/") THEN IF II > 0 AND II < = LL THEN OAKEY = 1: GOTO 880 
850 IF LEN (ANS) THEN K = 0: FOR I = 1 TO LEN (AN$):J = ASC ( RIGHTS 

( ANS, I) ) : K = K + (J < >32 AND (J < 48 OR J > 57)): NEXT I: IF K THEN 

PRINT " — > PLEASE USE DIGITS CALL - 868: PRINT :AN$ = 

GOTO 735 

860 IF NOT JJ THEN IF LEN (ANS) THEN K = 0: FOR I = 1 TO LEN (AN$):J 

= ASC ( RIGHTS (AN$,I)):K = K + (J = 48) : NEXT I: IF NOT K THEN PRINT 
" —> PLEASE USE DIGITS CALL - 868: PRINT :AN$ = "": GOTO 

735 

870 IF JJ > LL THEN PRINT " — > ";JJ;" IS TOO LARGE < — "; : CALL - 

868: PRINT :ANS = "": GOTO 735 
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875 IF JJ < 1 THEN PRINT " — > 0 IS TOO SMALL CALL - 868: A 

N$ = GOTO 735 
880 AN = II: TEXT : HOME : RETURN 
1000 REM *** MAIN PROGRAM *** 

1010 I = 0: AN$ = "" : J = 0:1$ = "":K = 0: REM DECLARE MOST OFTEN USED VARI 
ABLES FIRST FOR SPEED. 

1015 T80 = 0 

1017 GOSUB 63000: REM FIND OUT IF AIIE OR NOT 

1019 IF RESULTS = 96 THEN RESULTS = 32 

1020 IF RESULTS = 160 THEN RESULTS = 128 

1021 DIM ME$(20) 

1022 IF T80 = 1 THEN PRINT CHR$ (21): GOTO 1030 

1025 IF RESULTS > = 64 THEN C0L80 = 1: PRINT CHR$ (4);"PR#3": REM IF A 
N 80-COLUMN CARD IS PRESENT, USE IT. IF YOU DON'T WANT IT, CHANGE T 
HE LINE TO: 

1025 PRINT CHR$(21 ) 


1030 IF PEEK (6) = 99 AND PEEK (7) = 99 THEN 1100: REM SEE NOTES FOLL 
OWING 9060 

1035 TEXT : HOME : VTAB 2: PRINT 

1040 AN$ = "*** THE APPLESOFT SAMPLER DISK ***": POKE 36, ( PEEK (33) - LEN 
( AN$) ) / 2: GOSUB 400: PRINT 

1045 VTAB 6 + 3 * (C0L80 = 1): REM START ON LINE 6 UNLESS C0L80=1 , IN WH 
ICH CASE, START ON LINE 9 

1047 AN$ = "Featuring": GOSUB 400 

1050 AN$ = "the collection of programs to be studied in conjunction with 
the Applesoft Tutorial.": GOSUB 400 

1060 REM 

1065 AN$ = "The following " + CHR$ (34) + "main menu" + CHR$ (34) + " l 
ets you select one of several " + CHR$ (34) + "sub-menus" + CHR$ ( 
34) + " with the names of the programs on this disk.": GOSUB 400 

1070 AN$ = "You can choose to pick a program from a sub-menu, or you can 
elect to end the": GOSUB 400 


1075 AN$ = "program. ": GOSUB 400 

1076 GOSUB 400 

1080 PRINT : VTAB 24 

1089 AN$ = "Press RETURN to go to the Main Menu.": GOSUB 400: GOSUB 300 

1090 REM ** MAIN MENU ** 

1100 REM ** MAIN MENU LOOP ** 

1110 TITLES = "The Applesoft Sampler Disk" 

1120 SUBTITLES = "Main Menu" : REM TITLE OF MENU OR SUBSECTION OF PROGRAM 
1130 MENU$(1) = "Example Programs from The Applesoft Tutorial" 

1140 MENU$(2) = "Tutorial Appendix E: More Programs To Play With" 

1150 MENU$(3) = "Quit: Exit this program (This option will type CAT for y 
ou and will leave you in Applesoft Basic.)" 


1180 REM 

1190 MENUS (4) = "END": REM MENU PROGRAM KEEPS DISPLAYING ITEMS UNTIL I 
TFINDS THE WORD "end" 

1195 OAKEY = 0: REM HELP NOT AVAILABLE; OPEN-APPLE KEY WILL NOT BE READ 
1197 FROMS = "" 

1200 GOSUB 500 
1215 ANS = "" 
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1225 VTAB 8 

1230 ON AN GOSUB 2000,3000,6000: REM RETURN PRESSED, SO GO TO THE SELEC 
TED SECTION 

1235 REM IF AN HAD BEEN 3, AND THERE WERE 4 SELECTIONS IN THE MENU, THE 
THIRD LINE NUMBER WOULD HAVE BEEN 4000 
1240 GOTO 1100 
1250 REM 


1999 REM BLANK LINES ARE DONE BY PRESSING THE DOWN-ARROW KEY 

2000 REM *** EXAMPLES *** 

2010 REM 

2020 TITLES = "Applesoft Tutorial" 

2030 SUBTITLES = "Examples" 

2040 MENUS Cl) = "COLORLOOP" 

2045 MENUSC2) = "HUE" 

2046 MENUS (3) = "QUILT" 

2047 MENUSC4) = "SPACES" 

2048 MENUS (5) = " COLORBOUNCE" 

2049 MENUS (6) = "RANDOM" 

2050 MENUSC7) = "HORSES" 

2051 MENUSC8) = "MOIRE" 

2100 MENUS (9) = "ALPHABET" 

2110 MENUS (10) = "DECIMAL" 

2120 MENUSC1 1) = "C0L0RB0UNCE2" 

2140 MENUSC12) = "Return to Main Menu" 

2160 FROMS = "Main Menu" : ANS = "" :OAKEY = 0: GOSUB 500 

2170 IF ESCKEY THEN RETURN 
2180 IF AN = 12 THEN RETURN 

2190 TITLES = MENUS (AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROUT 
INE 

2195 PRINT CHRS (21) 

2200 GOTO 9000 
2210 GOTO 2000 
2220 REM 


3000 REM TUTOR EXAMPLES *** 

3010 REM 

3020 TITLES = "Applesoft Tutorial" 

3030 SUBTITLES = "Samples" 

3040 MENUS (1 ) = "SCRAMBLER" 

3050 MENUSC2) = "MAGIC . MENU" 

3060 MENUSC3) = "DISK. MENU (Which is this very program -- selecting it wi 
ll only result in a long wait followed by the program starting over. 
It is included here because it is included in Appendix E.)" 

3070 IF NOT COL80 THEN MENUS (2) = MENU$(2) + CHRS (1 0) : MENUS (3) = MENU 
$(3) + CHRS (10): REM CHRS(IO) IS DOWN-ARROW: ADDING DOWN-ARROWS WI 
LL ADD SPACES ABOVE AND BELOW MENU OPTION 3 
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3080 REM IN 80 COLUMN MODE, THERE IS ENOUGH ROOM THAT THE MENU MAKER ROU 
TINE WILL ADD SPACES AUTOMATICALLY, SO WE DO IT ONLY IF THE COMPUTER 
IS NOT IN 80-COLUMN MODE 
3090 MENUS (4) = "CONVERTER” 

3100 MENU$(5) = "Return to Main Menu" 

3110 MENUS (6) = "end" 

3120 FROMS = "Main Menu" : AN$ = "" :0AKEY = 0: GOSUB 500 
3130 IF ESCKEY THEN RETURN 
3140 IF AN = 5 THEN RETURN 

3150 IF AN = 1 AND NOT AIIE THEN HOME : VTAB 10: PRINT "SORRY, SCRAMBL 
ER CAN ONLY BE": PRINT "PLAYED ON AN APPLE HE.": VTAB 24: PRINT "PR 
ESS RETURN TO GO BACK TO THE MENU.";: GOSUB 300: GOTO 3000: REM "pa 
tch" 

3160 TITLES = MENUS (AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROUT 
INE 

3165 IF AN = 2 THEN TITLES = "MAGIC. MENU" : REM A DOWN-ARROW MAY HAVE BE 
EN APPENDED IN LINE 3070 

3170 IF AN = 3 THEN TITLES = "DISK. MENU" : REM A "PATCH" TO THE PROGRAM: 

MENUS (3) HAS AN EXTRA DESCRIPTION 
3180 GOTO 9000 
3190 REM 

4000 REM *** REFERENCE MAN *** 

4010 REM 

4020 TITLES = "Applesoft Tutorial" 

4030 SUBTITLES = "Example" 

4040 MENUS(I) = "Return to Main Menu" 

4060 REM 

4070 MENUSC2) = "end" 

4080 FROMS = "Main Menu" : ANS = "" :OAKEY = 0: GOSUB 500 
4090 IF ESCKEY THEN RETURN 
4100 IF AN = 2 THEN RETURN 

4110 TITLES = MENUS! AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROUT 
INE 

4120 GOTO 9000 
4140 REM 


4999 RETURN 

6000 REM *** CATALOG *** 

6005 PRINT CHRS (21): REM EXIT 80 COLUMN MODE 
6010 HOME 
6020 VTAB 10 
6025 PRINT "3"; 

6030 TITLES = "CAT" 

6040 FOR I = 1 TO LEN (TITLES) 

6050 PRINT MIDS (TITLES, 1,1 ) ; 

6055 K = PEEK ( - 16336) + PEEK ( - 16336) 

6060 FOR J = 1 TO 400 * RND (1): NEXT 
6070 NEXT I 
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6072 POKE 6,0: POKE 7,0: REM SEE NOTES FOLLOWING 9060 
6075 PRINT 

6080 PRINT CHR$ (4);TITLE$ 

6999 NEW : REM CLEARING OUT PROGRAM SO USER CAN BEGIN TYPING OWN PROGRA 
M 

9000 REM *** GO TO DISK *** 

9060 POKE 6,99: POKE 7,99: REM LET THE PROGRAMS FROM APPENDIX E KNOW THA 
T THEY CAN RETURN TO THIS PROGRAM. USUALLY, YOU USE A VARIABLE TO " 

TURN ON" OR "TURN OFF" AN OPTION 

9061 REM BUT VARIABLES ARE ALL CLEARED BETWEEN PROGRAMS. LOCATIONS 6 & 

7 ARE NOT AFFECTED BY APPLESOFT, SO THE AUTHOR CHOSE THEM AS A WAY T 
0 COMMUNICATE 
9075 PRINT 

9080 PRINT CHR$ (4);"RUN ";TITLE$ 

9090 END 

63000 REM *** COMPUTER ID *** 

63010 REM *** AIIE OR NOT? *** 

63020 REM USES I,J,K,RE — SETS AIIE TO 1 IF IT IS AN AIIE 
63030 REM SETS RESULT DEPENDENT ON AVAILABLE HARDWARE 

63040 REM RESULTS OF 0 MEANS NOT A / / E; 32 MEANS A//E BUT NO 80 COLUMNS; 

64 MEANS A//E WITH 80 COLUMNS BUT NO AUX MEM 
63045 REM RESULTS OF 96 MEANS A//C WITH 80-COLUMN SWITCH SET TO 40 COLUM 
NS; 128 MEANS A//E WITH AUX MEM; 160 MEANS A//C WITH 80-COLUMN SWITC 
H SET TO 80 COLUMNS 

63050 BY = PEEK C49048) :J = 128: FOR I = 7 TO 0 STEP - 1: IF BY > = J THEN 

B( I) = 1:BY = BY - J 


63060 

J = 

INT CJ 

/ 

2) 

: NEXT 


63070 

IF 

B( 7) < 

> 

1 

THEN RESULTS = 0 


63075 

IF 

B (7) = 

1 

AND 

B(3) < > 1 THEN 

RESULTS = 32 

63080 

IF 

B( 7) = 

1 

AND 

B(3) = 1 THEN RESULTS = 96 

63085 

IF 

RESULTS 

= 

32 

AND B( 1 ) = 1 THEN 

RESULTS = 64 

63090 

IF 

RESULTS 

= 

64 

AND B(4) = 1 THEN 

RESULTS = 128 

63095 

IF 

RESULTS 

= 

96 

AND PEEK (49248) 

< 128 THEN RESULTS 

63100 

IF 

RESULTS 

< 

> 

0 THEN AIIE = 1 


63200 

RETURN 
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I CONVERTER 


CONVERTER stands on its own. It is based on the now- 
familiar subroutine package. It was derived from 
MAGIC. MENU and is ready for you to add other conversions 
you might find useful. This is a good example of a program 
that is so well-structured that any programmer can easily 
see how the program works and how to modify it. Try it for 
yourself. 

Lines 2270 to 2470 are the main menu. Menu options 4 
through 11 are blank. Simply add the new names to the 
menu as you add the subroutines to the program. 

Lines 11000 to 13600: The three existing conversion 
programs begin on lines 11000, 12000, and 13000, 
respectively. Line 11145 is special: it is an example of the 
kind of care that can and should go into programming. 
Creating humanized programs that are user-friendly is an 
exciting challenge. 

Lines 14000 to 22000 are blank right now. These are the 
lines where you should insert your conversion routines. The 
rest of the code that will call your conversion routines is 
already in place. 


Program Listing 

0 REM CONVERTER - SEPT, 1982 - BO & TOG 

1 GOTO 2000 

2 TEXT : PRINT CHR$ (21): HOME : POKE 33,33: END 
100 REM *** INPUT ROUTINE *** 

102 REM SEPT, 1982 BY B. T0GNAZZINI 

103 REM REV2, SEPT 1983 B. TOGNAZZINI 
105 REM OSES FLASHING UNDERLINE CURSOR 
135 REM * TAKE INPUT * 

140 I = 5 : J = 0:K = 0:L = 0:M = 0:1$ = "":ESC = 0:OA = 0:0A$ = M ":SA = 0: 

SA$ = IF FL = 0 THEN FL = 245 

142 IF NOT AIIE THEN INPUT "";AN$: RETURN 
145 PRINT AN$;:J = LEN ( AN$) 

149 M = PEEK (37) 

153 L = PEEK (36): IF C0L80 THEN IF L = PEEK (1147) THEN L = PEEK (14 

03): REM FIND CURRENT H0RIZ POSITION WITH 80 COLUMN CARD TURNED ON 

155 PRINT 1$;" 

160 N = 1: IF PEEK (37) = PEEK (35) - 1 THEN IF L + LEN (1$) > = PEEK 

(33) - 3 THEN N = 0 

165 POKE 36, L: POKE 1403, L: VTAB M+ 1 
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168 IF LEN (1$) =0 THEN 1$ = " " 

170 I = I - 1: IF I < 0 THEN K=1-K:I=3+8* NOT K: PRINT CHR$ ( ASC 
(1$) * NOT K + 95 * K * (ASC (1$) < > 95) + 32 * K * NOT ( ASC ( 

1$) < > 95)); 

175 POKE 36, L: POKE 1403, L: VTAB M + 1 


180 

P = PEEK 

( - 16384): 

IF P 

00 

■\J 

V 

THEN 

170 





185 

IF PEEK 

( - 16287) 

> 127 

THEN 

OAKEY 

= 1 





190 

IF PEEK 

( - 16286) 

> 127 

THEN 

SAKEY 

= 1 





195 

POKE - 

16368, 0:K = 

0:1 = 

0 







200 

IF OAKEY 

THEN 0A$ = 

CHRS 

(P - 

128) : 

ANS 

= ANS + 

IS: PRINT 

IS;" 

": RETURN 


: REM * 

OPEN-APPLE 

KEY 








205 

IF SAKEY 

THEN SA$ = 

CHRS 

(P - 

* 

rv 

00 

■ ■ 

ANS 

= ANS + 

IS: PRINT 

IS;" 

": RETURN 


: REM * 

SOLID- APPLE 

KEY 








210 

IF P > 159 AND P < 

> 255 

THEN 

IF J 

+ 

LEN (IS) 

< FL THEN 

IF 

N THEN 


AN$ = AIMS + CHR$ (P - 128) :J = J + 1: PRINT CHR$ (P);: GOTO 149 
215 IF P < > 255 THEN 240: REM DELETE KEY 

220 IF J THEN PRINT " : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHR$ 

(136) ; : J = J - 1 
225 IF J = 0 THEN AN$ = "" 

230 IF J THEN AN$ = LEFTS (AN$,J) 

235 GOTO 149 

240 IF P < > 136 THEN 265: REM * BACK ARROW KEY 

245 IF J THEN PRINT " : POKE 36, L: POKE 1403, L: VTAB M+ 1: PRINT CHRS 

(136); :I$ = RIGHTS (AN$,1) + I$:J = J - 1 
250 IF J = 0 THEN ANS = "" 

255 IF J THEN ANS = LEFTS (AN$,J) 

260 GOTO 149 

265 IF P = 141 THEN ANS = ANS + IS: PRINT IS;" RETURN : REM * RETURN 
KEY 


270 

IF 

P < 

> 149 THEN 294: REM * 

FORWARD ARROW KEY 

275 

IF 

NOT 

LEN (IS) THEN 149 



280 

ANS 

= ANS 

+ LEFTS (I$,1) : J = J 

+ 1: 

PRINT LEFTS (IS,1); 

285 

IF 

LEN 

(IS) = 1 THEN IS = "" 



290 

IF 

LEN 

(IS) THEN IS = RIGHTS 

(IS, 

LEN (IS) - 1) 


292 GOTO 149 

294 IF P = 155 THEN ESCKEY = 1: PRINT : RETURN : REM ESCAPE KEY PRESSED 

296 GOTO 149 
298 REM 
3UU REM 

** GET RETURN ** 


310 IF AIIE THEN 325 

315 GET ANS: IF ASC (ANS) < > 13 THEN 315 

320 PRINT : RETURN 
325 I = 0:J = 0:K = 0 

330 1=1-1: IF ICO THEN K = 1 - K:I = 5: PRINT CHRS (32 + 63 * K) ; 
335 IF I < >5 THEN 355 

340 L = PEEK (36): IF COL80 THEN IF L = PEEK (1147) THEN L = PEEK (14 
03) 
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345 

IF L = 0 THEN POKE 36, 

PEEK (33) : 

VTAB 

PEEK 

350 

IF L < >0 THEN POKE 

36, L - 1 



355 

P = PEEK C - 16384) : IF 

P < >141 

THEN 

330 

360 

PRINT " 




365 

IF PEEK (37) = 23 THEN 

VTAB 23 



370 

PRINT 




375 

POKE - 16368,0: RETURN 




400 

REM 






*** SCREEN 

FORMATTER *** 






410 

I = LEN (ANS) : 

IF NOT I THEN RETURN 






411 

P = PEEK (36) : 

IF C0L80 THEN IF P = PEEK (1147) 

THEN 

P = PEEK 

(14 


03) 







412 

IF NOT P THEN 

IF I > 1 THEN IF ASC 

(ANS) 

= 32 

THEN 

ANS = RIGHTS 


(ANS, I - 1) 







413 

IF P + 2 + I < 

PEEK (33) AND AIIE THEN 

PRINT ANS 

.11 II 
/ 

; : ANS = 

RETURN 

414 

IF I > 1 THEN 

IF RIGHTS ( ANS ,1 ) = " " 

THEN 

ANS = 

LEFTS (ANS, I 

- 1 

417 

J 

IF P + I < PEEK (33) THEN IS = ANS : ANS 

_ mi. 

GOTO 

440 



420 

J = PEEK (33) 

- P + 2:1 = J 






425 

1=1-1: IF I 

THEN IF MIDS (ANS, 1,1) 

< > 

" " THEN 

425 


430 

IF I = 1 THEN 

I = J 






431 

IF I = 0 THEN 

PRINT : GOTO 410 






435 

IS = LEFTS (ANS, I -1): IF LEN (ANS) > 

I THEN ANS 

= 

RIGHTS (ANS 

, LEN 


(ANS) - I) 







440 

IF AIIE THEN 

PRINT 1$; 






445 

IF NOT AIIE THEN K = LEN (IS) + 1: FOR I = 

1 TO 

LEN 

(IS) : J = 

ASC 


( RIGHTS (I$,K - I)): PRINT CHRS (J - 32 * (J > 96 AND J < 123));: NEXT 


I 


447 

P = PEEK 

; (36) : IF C0L80 THEN IF P = 

PEEK (1147) THEN P = 

PEEK (14 


03) 




450 

IF LEN 

(ANS) THEN IF P < >0 THEN 

PRINT 


455 

IF LEN 

(ANS) THEN 410 



460 

IF P < 

> 0 THEN IF MIDS (IS, LEN 

(I$),1) < > " " THEN 

PRINT " " 

465 

/ 

RETURN 




500 

REM 






MENU MAKER *** 




530 J = 0 :K = 0: J J = 0:KK = 0:LL = 0:MM = 0:NN = 0:00 = 0:AN = 0 
535 00 = 0A 
540 ANS = "" 

545 II = 1 

550 KK = KK + INT ( LEN (MENUS(II)) / (27 + 35 * (C0L80 = 1))) 

555 IF II < 12 THEN IF MENUS ( II + 1) < > "End" AND MENUS! II + 1) < > 
"end" AND MENUSdl + 1) < > "END" THEN II = II + 1: GOTO 550 
560 LL = II 
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565 NN = 0: IF LL * 2 + KK < 14 THEN NN = 1 
570 MM = 3: IF C0L80 THEN MM = 9 
575 JJ = 3 + MM: IF LL > 9 THEN JJ = 4 + MM 
590 TEXT : HOME 

595 AN$ = TITLES: GOSUB 400: POKE 36, PEEK (33) - LEN (SUBTITLES) - 1 : AN 
$ = SOBTITLES 
600 GOSUB 400 

605 FOR II = 1 TO PEEK (33): PRINT NEXT : PRINT 

615 FOR II = 1 TO LL 
620 HTAB MM: PRINT II;". 

625 IF C0L80 THEN VTAB PEEK (1531): GOTO 630 
627 VTAB PEEK (37) 

630 POKE 32,J J : POKE 33, PEEK (33) - JJ: PRINT 

635 ANS = MENUS (I I): GOSUB 400 

640 POKE 32,0: POKE 33, PEEK (33) + JJ: PRINT 

645 IF NN THEN PRINT 

650 NEXT II 

655 IF PEEK (37) > 16 THEN PRINT "TOO MANY MENU ITEMS OR TOO LONG LINE 
S.": STOP 

660 TEXT : VTAB 17:ANS = "Select option >": GOSUB 400: PRINT 
665 FOR II = 1 TO PEEK (33): PRINT : NEXT 

670 IF NOT 00 OR NOT AIIE THEN PRINT 

675 IF LEN (FROMS) THEN ANS = "For " + FROMS + ": press ESC": GOSUB 400 
680 PRINT 

685 IF AIIE THEN PRINT "To erase: use the DELETE key" 

690 ANS = "To select: type a number from 1 to " + STRS (LL) 

700 GOSUB 400: PRINT 

705 IF NOT 00 THEN 720 

710 IF AIIE THEN PRINT "For descriptions: press OPEN-APPLE-?" 

715 IF NOT AIIE THEN PRINT "FOR DESCRIPTIONS: FOLLOW ANSWER WITH ?" 

720 ANS = "To go to selected item: press RETURN": GOSUB 400: PRINT 
723 IF NOT 00 THEN ANS = GOSUB 400 
725 FL = 3: ANS = "" 

735 REM 

740 VTAB 17: HTAB 17: CALL - 868: HTAB 17 

745 IF AIIE OR NOT LEN (FROMS) THEN GOSUB 100: GOTO 795 

750 I = 0:J = 0: M = PEEK (37) :L = PEEK (36):0AKEY = 0 

755 I = I - 1: IF I < 0 THEN K = 1 - K: I = 5: J = 1 - J : NORMAL : IF J THEN 

INVERSE 

760 PRINT " POKE 36, L: VTAB M+ 1 

765 P = PEEK ( - 16384): IF P < 128 THEN 755 

770 NORMAL 

775 IF P = 155 THEN POKE - 16368,0 : ESCKEY = 1: GOTO 795 

780 L = PEEK (36): VTAB 20: HTAB 1: CALL - 868: VTAB M+ 1: HTAB L + 1 

785 INPUT ANS 

795 VTAB 19 

800 IF NOT OAKEY THEN 825 

805 IF NOT 00 OR OAS < > "?" AND OAS < > THEN 735 
815 JJ = VAL (ANS): IF JJ > 0 AND JJ < = LL THEN II = JJ: GOTO 880 
820 IF JJ = 0 THEN PRINT "— > PLEASE SELECT A NUMBER FIRST CALL 

- 868: PRINT :AN$ = "": GOTO 735 
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825 IF SAKEY THEN 735 

830 IF ESCKEY THEN IF LEN CFROMS) THEN 880 

835 JJ = VAL (AN$) : IF JJ > 0 AND JJ < = LL THEN II = JJ 

840 IF LEN CANS) = 0 THEN 735 

845 IF 00 THEN IF NOT AIIE AND ( RIGHTS (AN$,1) = "?" OR RIGHTS CANS, 

1) = "/") THEN IF II > 0 AND II < = LL THEN OAKEY = 1: GOTO 880 
850 IF LEN CANS) THEN K = 0: FOR I = 1 TO LEN CAN$):J = ASC C RIGHTS 

CANS, I) ) :K = K + CJ < >32 AND CJ < 48 OR J > 57)): NEXT I: IF K THEN 
PRINT " --> PLEASE USE DIGITS : CALL - 868: PRINT :AN$ = 

GOTO 735 

860 IF NOT JJ THEN IF LEN CANS) THEN K = 0: FOR I = 1 TO LEN CAN$):J 

= ASC C RIGHTS CAN$,I)):K = K + CJ = 48) : NEXT I: IF NOT K THEN PRINT 
" — > PLEASE USE DIGITS < — CALL - 868: PRINT :AN$ = GOTO 

735 

870 IF JJ > LL THEN PRINT " — > ";JJ;" IS TOO LARGE CALL - 

868: PRINT :AN$ = : GOTO 735 

875 IF JJ < 1 THEN PRINT " — > 0 IS TOO SMALL CALL - 868:A 

NS = GOTO 735 
880 AN = II: TEXT : HOME : RETURN 
1000 REM *** SUBROUTINES *** 

1010 REM SOME SPECIAL ROUTINES FOR THIS PROGRAM 
1100 REM Y OR N? 

1110 REM PUT NAME OF CALLING ROUTINE IN ANS 
1120 REM UPON RETURN ,AN WILL BE 1 IF YES, 0 IF NO 
1130 REM USES AN, ANS, I, IIS 
1135 PRINT 

1140 IIS = “Do you want to do another " + ANS + " conversion? CY OR N) " 

1145 HTAB 1: VTAB 22: CALL - 958:AN$ = 11$: 60SUB 400:FL = 2: GOSUB 100 

1150 1=0: IF LEN CANS) THEN I = ASC CANS): IF I < > ASC C"Y") AND I 
< > ASC C"y") AND I < > ASC C"N") AND I < > ASC C"n") THEN 11 
45 

1155 IF NOT I THEN 1145 

1160 AN = U: IF 1 = ASC C"y") OR I = ASC C"Y") THEN AN = 1 
1170 RETURN 

2000 REM *** BEGIN PROGRAM *** 

2010 REM THE CONVERTER - A PROGRAM SKELETON USED FOR MEASUREMENT CONVERS 
IONS - 1982 

2020 GOSUB 63000: REM SET AIIE TO TRUE Cl) OR FALSE CO) 

2022 IF RESULTS = 96 THEN RESULTS = 32 

2023 IF RESULTS = 160 THEN RESULTS = 128 

2025 IF RESULTS > = 64 THEN COL80 = 1: PRINT CHRS C4) ; "PR#3" : REM IF A 
N 80-COLUMN CARD IS PRESENT, USE IT. IF YOU DON'T WANT IT, CHANGE T 
HE LINE TO: 

1025 PRINT CHRSC21) 

2030 TEXT : PRINT : HOME 

2040 I = 0: ANS = "" : J = 0:1$ = "":K = 0 

2050 DIM MENUS Cl 2) 

2070 ANS = "*** Converter ***" : POKE 36, C PEEK C33) - LEN CANS)) / 2: GOSUB 
400: PRINT : REM CENTER TITLE 
2080 PRINT : PRINT : IF COL80 THEN VTAB 6 
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2090 AN$ = "Converter is a program to convert" 

2095 GOSUB 400 

2100 AN$ = "measurements from one form to another,": GOSUB 400 
2110 ANS = "such as kilometers to miles.": GOSUB 400: PRINT : PRINT 
2120 AN$ = "The program is structured to provide hundreds of conversions, 
but it is now in skeleton form": GOSUB 400 
2130 AN$ = " — that is, only a few sample conversions are provided. The 
intent": GOSUB 400 

2140 AN$ = "is for you to learn, through studying the program listings an 
d the given samples, how to alter the program": G0SUB 400 
2150 AN$ = "to provide you the conversions you will find useful.": G0S0B 
400: PRINT : PRINT 

2160 AN$ = "Through this learning process, you will gain insight into alt 
ering other programs to suit your needs.": G0SUB 400 
2220 PRINT 
2230 VTAB 23 

2240 ANS = "Press RETURN to continue.": G0SUB 400: G0SUB 300 
2250 HOME 
2260 REM 


2270 

2280 

2285 


2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2405 

2410 


REM *** MAIN MENU *** 

TITLES = "Converter" :SUBTITLE$ = "Main Menu" 

FR0MS = "": IF PEEK (6) = 99 AND PEEK (7) = 99 THEN FR0MS = "the D 
isk Menu": REM SEE NOTES FOLLOWING LINE 9060 IN THE DISK MENU PR0GRA 
M 

MENUS ( 1 ) = "LINEAR MEASURES" 

MENUS (2) = "TEMPERATURE MEASURES" 

MENUS (3) = "SPEED MEASURES" 

MENUS (4) = "" 

MENUSC5) = "" 

MENUS (6) = "" 

MENUSC7) = "" 

MENUS (8) = "" 

MENUS (9) = "" 

MENUS (10) = "" 

MENUS (11) = "" 

MENUS (12) = "Quit: End the program" 

IF LEN (FROMS) THEN MENUSC12) = "End program and go to Disk Menu" 
REM 


2430 ANS = "" 

2440 OAKEY = 0: REM NO HELP AVAILABLE 
2450 GOSUB 500: REM DO MENU 

2455 IF ESC FLAGTHE GOTO 22000: REM SEE NOTES FOLLOWING LINE 9060 IN THE 
DISK MENU PROGRAM 

2460 ON AN GOSUB 1 1 000,1 2000,1 3U20,1 4000,1 5000,1 6000,1 7000,1 8000,1 9000,2 
0000,21000,22000 
2470 GOTO 2270 
10999 REM 
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11000 REM *** LINEAR MEASORE 

11001 REM 

11002 TITLES = "Conversions" 

11005 SUBTITLES = "Change Linear measure" 

11010 MENUS ( 1 ) = "Kilometers to Miles" 

11020 MENUS (2) = "Miles to Kilometers" 

11030 MENU$(3) = "Return to Main Menu" 

11035 MENUS (4) = "end" 

11040 FR0MS = "Main Menu" : ANS = "" :0AKEY = 0: GOSUB 500 
11050 IF ESCKEY THEN RETURN 
11060 IF AN = 3 THEN RETURN 

11065 TITLES = MENUS C AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROU 
TINE 

11070 ON AN GO SUB 11100,11200 
11080 GOTO 11000 
11099 REM 


11100 REM ** KILOMETERS — > MILES 

11110 TEXT : HOME : PRINT :ANS = "Convert Kilometers to Miles": GOSUB 40 
0: PRINT : REM FUNCTION TITLE 

11120 VTA8 10:AN$ = "Enter number of kilometers GOSUB 400:AN$ = "":FL 
= 10: GOSUB 100 

11130 AN = VAL (ANS): IF AN = 0 AND ANS < > "0" THEN PRINT CHRS (7): GOTO 

11110: REM ONLY NUMBERS ALLOWED 
11140 MILE = AN * .62137 

11145 IS = " mile": IF INT (MILE * 10000) / 10000 < > 1 THEN IS = " mil 

es" 

11146 J$ = " kilometer": IF AN < >1 THEN J$ = " kilometers 

11150 PRINT : ANS = STRS (AN) + J$ + " = " + STRS (MILE) + IS: GOSUB 40 
0 

11160 ANS = TITLES: GOSUB 1100 
11170 IF AN THEN 11100 
11190 RETURN 
11199 REM 


11200 REM ** MILES — > KILOMETERS 

11210 TEXT : HOME : PRINT :AN$ = "Convert Miles to Kilometers": GOSUB 40 
0: PRINT : REM FUNCTION TITLE 

11220 VTAB 1 0 : ANS = "Enter number of miles ": GOSUB 400:AN$ = "" : FL = 10 
: GOSUB 100 

11230 AN = VAL (ANS): IF AN = 0 AND ANS < > "0" THEN PRINT CHRS (7): GOTO 

11210: REM ONLY NUMBERS ALLOWED 

11240 KILO = AN / .62137 

11245 IS = " mile": IF AN < >1 THEN IS = " miles" 

11246 J$ = " kilometer": IF INT (KILO * 10000) / 10000 < > 1 THEN J$ = 

" kilometers" 

11250 PRINT :ANS = STRS (AN) + IS + " = " + STRS (KILO) + J$ : GOSUB 40 
0 

11260 ANS = TITLES: GOSUB 1100 
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11270 IF AN THEN 11200 
11280 RETURN 
11290 REM 


11300 RETURN : REM PROGRAMMER TO CREATE CONVERSION ROUTINE HERE 
12000 REM *** TEMPERATURE *** 

12010 REM 

12020 TITLES = "Conversions" 

12030 SUBTITLES = "Change temperature measure" 

12040 MENUS (1 ) = "Fahrenheit to Celsius” 

12050 MENUSC2) = "Celsius to Fahrenheit" 

12060 MENUSC3) = "Return to Main Menu" 

12070 MENUS (4) = "end" 

12080 FROMS = "Main Menu" : ANS = "":OAKEY = 0: GOSUB 500 
12090 IF ESCKEY THEN RETURN 
12100 IF AN = 3 THEN RETURN 

12110 TITLES = MENUS ( AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROU 
TINE 

12120 ON AN GOSUB 12200,12400 
12130 GOTO 12000 
12140 REM 


12200 REM ** FAHRENHEIT — > CELSIUS 

12210 TEXT : HOME : PRINT :AN$ = "Convert Fahrenheit to Celsius": GOSUB 
400: PRINT : REM FUNCTION TITLE 

12220 VTAB 10:AN$ = "Enter degrees Fahrenheit ": GOSUB 400:AN$ = "”:FL = 

10: GOSUB 100 

12230 AN = VAL (ANS): IF AN = 0 AND ANS < > "0" THEN PRINT CHRS (7): GOTO 

12210: REM ONLY NUMBERS ALLOWED 

12235 IF AN < - 459.6 THEN PRINT :AN$ = "One cannot have a temperature 

below Absolute 0 (-459.6 degrees Fahrenheit)": GOSUB 400: GOTO 1228 

0 

12240 CEL = (AN - 32) / 1 .8 

12250 IS = " degree": IF INT (CEL * 10000) / 10000 < > 1 THEN IS = " de 

grees" 

12260 J$ = " degree": IF AN < >1 THEN J$ = " degrees" 

12270 PRINT : ANS = STRS (AN) + J$ + " Fahrenheit = " + STRS (CEL) + IS 
+ " Celsius": GOSUB 400 
12280 ANS = TITLES: GOSUB 1100 
12290 IF AN THEN 12200 
12300 RETURN 
12310 REM 


12400 REM ** CELSIUS — > FAHRENHEIT 

12410 TEXT : HOME : PRINT :AN$ = "Convert Celsius to Fahrenheit": GOSUB 
400: PRINT : REM FUNCTION TITLE 

12420 VTAB 10:AN$ = "Enter degrees Celsius": GOSUB 400:AN$ = "":FL = 10: 
GOSUB 100 
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12430 AN = VAL ( AN$) : IF AN = 0 AND AN$ < > "0" THEN PRINT CHR$ (7): GOTO 

12410: REM ONLY NUMBERS ALLOWED 

12435 IF AN < - 273.1 THEN PRINT :AN$ = "One cannot have a temperature 

below Absolute 0 (-273.1 degrees Celsius)": GOSUB 400: GOTO 12480 
12440 FAHR = AN * 1 .8 + 32 

12450 1$ = " degree": IF AN < >1 THEN 1$ = " degrees" 

12460 J$ = " degree": IF INT (FAHR * 10000) / 10000 < > 1 THEN J$ = " d 
egrees" 

12470 PRINT :AN$ = STR$ (AN) + 1$ + " Celsius = " + STR$ (FAHR) + J$ + 

" Fahrenheit": GOSUB 400 
12480 AN$ = TITLES: GOSUB 1100 
12490 IF AN THEN 12400 
12500 RETURN 
12510 REM 


12600 RETURN : REM PROGRAMMER TO CREATE KELVIN CONVERSION ROUTINE HERE 
13000 REM *** SPEED *** 

13010 REM 

13020 TITLES = "Conversions" 

13030 SUBTITLES = "Change speed measure" 

13040 MENU$(1) = "Kilometers/hour to miles/hour" 

13050 MENU$(2) = "Miles/hour to kilometers/hour 
13060 MENU$(3) = "Return to Main Menu" 

13070 MENU$(4) = "end" 

13080 FROMS = "Main Menu" : ANS = "" :0AKEY = 0: GOSUB 500 
13090 IF ESCKEY THEN RETURN 
13100 IF AN = 3 THEN RETURN 

13110 TITLES = MENUS (AN) : REM STORE NAME OF SELECTION FOR USE BY EACH ROU 
TINE 

13120 ON AN GOSUB 13200,13400 
13130 GOTO 13000 
13140 REM 


13200 REM ** KILO/HR — > MILES/HR 

13210 TEXT : HOME : PRINT :AN$ = "Convert Kilometers per hour to Miles p 
er hour": GOSUB 400: PRINT : REM FUNCTION TITLE 

13220 VTAB 10:ANS = "Enter kilometers per hour ": GOSUB 4U0:ANS = "":FL = 

10: GOSUB 100 

13230 AN = VAL (ANS): IF AN = 0 AND ANS < > "0" THEN PRINT CHRS (7): GOTO 

13210: REM ONLY NUMBERS ALLOWED 

13240 MILE = AN * .62137 

13250 IS = " mile": IF INT (MILE * 10000) / 10000 < > 1 THEN IS = " mi l 

es" 

13260 JS = " kilometer": IF AN < >1 THEN J$ = " kilometers 

13270 PRINT :AN$ = STRS (AN) + JS + " per hour = " + STRS (MILE) + IS + 

" per hour": GOSOB 400 


2501 


Appendix E: More Programs to Play With 


13280 AN$ = TITLES: 60 SUB 1100 
13290 IF AN THEN 13200 
13300 RETURN 
13310 REM 


13400 REM ** MILES /HR — > KILO/HR 

13410 TEXT : HOME : PRINT :AN$ = "Convert Miles per hour to kilometers p 

er hour": 60 SUB 400: PRINT : REM FUNCTION TITLE 
13420 VTAB 10:AN$ = "Enter number of mph 60 SUB 400:AN$ = "" : FL = 10: 60SUB 

100 

13430 AN = VAL CANS): IF AN = 0 AND AN$ < > "0" THEN PRINT CHRS (7): 60T0 

13410: REM ONLY NUMBERS ALLOWED 
13440 KILO = AN / .62137 

13450 1$ = " mile": IF AN < >1 THEN IS = " miles" 

13460 J$ = " kilometer": IF INT (KILO * 10000) / 10000 < > 1 THEN J$ = 

" kilometers" 

13470 PRINT :AN$ = STRS (AN) + IS + " per hour = " + STRS (KILO) + J$ + 

" per hour": 60 SUB 400 
13480 ANS = TITLES: 60SUB 1100 
13490 IF AN THEN 13400 
13500 RETURN 
13600 REM 


13601 RETURN : REM PR06RAMMER TO CREATE CONVERSION ROUTINE HERE 


14000 

REM *** 

SELECTION 

4 

*** 

14999 

RETURN 




15000 

REM *** 

SELECTION 

5 


15999 

RETURN 




16000 

REM *** 

SELECTION 

6 

★★★ 

16999 

RETURN 




17000 

REM *** 

SELECTION 

7 

*★* 

17999 

RETURN 




18000 

REM *** 

SELECTION 

8 

*** 

18999 

RETURN 




19000 

REM *** 

SELECTION 

9 

*** 

19999 

RETURN 




20000 

REM *** 

SELECTION 

10 

1 ★★★ 

20999 

RETURN 




21000 

REM *** 

SELECTION 

11 

★ ★★ 

21999 

RETURN 




22000 

REM *** 

SELECTION 

12 * ** 

22010 

REM *** 

END THE PR06RAM *** 


22020 IF PEEK (6) = 99 AND PEEK (7) = 99 THEN PRINT : PRINT CHRS (4) 

;"RUN STARTUP": END 
22050 TEXT : HOME : TEXT : END 
63000 REM *** COMPUTER ID *** 

6301 U REM *** AIIE OR NOT? *** 

63020 REM USES I,J,K,RE — SETS AIIE TO 1 IF IT IS AN AIIE 
63030 REM SETS RESULT DEPENDENT ON AVAILABLE HARDWARE 
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63040 REM RESOLTS OF 0 MEANS NOT A // E; 32 MEANS A//E BOT NO 80 COLOMNS; 

64 MEANS A//E WITH 80 COLUMNS BUT NO AUX MEM 
63045 REM RESULTS OF 96 MEANS A//C WITH 80-COLUMN SWITCH SET To 40 COLUM 
NS; 128 MEANS A//E WITH AUX MEM; 160 MEANS A//C WITH 80-COLUMN SWITC 
H SET TO 80 COLUMNS 

63050 BY = PEEK (49048) :J = 128: FOR I = 7 TO 0 STEP - 1 : IF BY > = J THEN 

B( I) = 1 :BY = BY - J 


63Q60 

J = 

INT (J 

/ 

2) 

: NEXT 



63070 

IF 

B(7) < 

> 

1 

THEN RESULTS = 0 



63075 

IF 

B( 7) = 

1 

AND 

B(3) < > 1 THEN 

RESULTS = 

32 

63080 

IF 

B( 7) = 

1 

AND 

B(3) = 1 THEN RESULTS = 96 


63085 

IF 

RESULTS 

- 

32 

AND B( 1 ) = 1 THEN 

RESULTS = 

64 

63090 

IF 

RESULTS 

= 

64 

AND B(4) = 1 THEN 

RESULTS = 

128 

63095 

IF 

RESULTS 

= 

96 

AND PEEK (49248) 

< 128 THEN RESULTS 

63100 

IF 

RESULTS 

< 

> 

0 THEN AIIE = 1 



63200 

RETURN 









I Some ^inal Thoughts 

We hope you have enjoyed this excursion into the depths of 
large programs. If you feel a bit overwhelmed, take heart. 
You have been given a tremendous amount of new 
information in the space of a few hours. Examine these 
programs again in a few days or a week. Look at programs 
by other authors. Each time you do, you will discover some 
new trick or technique that you can incorporate into your 
own programs. 
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i 



BASIC and the Mouse 





This appendix is for people who want to write BASIC 
programs that take advantage of the mouse peripheral. It 
explains what the mouse does and how to control it from 
BASIC programs. It presents the bare bones; it is not an 
exhaustive tutorial. There are two sample programs at the 
end of this appendix; they are also on the Applesoft Sampler 
disk. 

Like the keyboard, the mouse is an input device for your 
computer. Programs you write and software you buy need 
special code to enable you to use the mouse, once it’s 
plugged in. Typically, with software written for the mouse, 
rolling the mouse along a flat surface moves a pointer or 
cursor on the video screen; pressing the button on top of the 
mouse sends a signal to the computer, usually (but not 
necessarily) meaning that the pointer is in the location you 
want. 
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Using the Mouse in BASIC 


This section explains how to turn the mouse on and off so 
that you can use it in BASIC. You needn’t try the commands 
out as you read; things will be clearer if you first read 
through this entire section to get a feel for what’s going on. 
MOUSE. MOVE, the program that puts all these commands 
together for you, is listed at the end of this section. 

Here’s a list of the commands you’ll need in order to use the 
mouse from BASIC: 

PR#4 Directs the computer to send information to the 
mouse (if your mouse card is in a slot other than 
#4, the number after PR# should correspond to 
that slot). 

PR#0 Directs the computer to send information to the 
video screen. 


A Warning 

The sample code listed throughout this appendix sends 
information to the video screen using the command 


PR#0 


Some Apple II models capable of displaying 80 columns 
need a different command instead, in the form 

PR#3 


to keep the 80-column setting intact. Check the appropriate 
manual, just to be sure. 


IN#4 Directs the computer to accept information from 
the mouse (if your mouse card is in a slot other 
than #4, the number after IN# should correspond 
to that slot). 

IN#0 Directs the computer to accept information from 
the keyboard. 

CHR$ (1) Turns the mouse on. 

CHR$ (0) Reinitializes the mouse to coordinates 0,0. 
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In Applesoft BASIC you use the CHR$ function before you 
execute a ProDOS command within a program. The CHR$ 
function converts any valid code number to its 
corresponding ASCII character. CHR$ (4) returns the 
ASCII character code ( control ) - fp]. You use 
( control ) - fp] to tell the computer that the next command 
should be interpreted as a ProDOS command. All ProDOS 
commands work only if they appear at the left margin of 
the video screen. One way to ensure that a command 
begins on the left margin is to precede it with a blank 
PRINT statement. For example: 

40 PRINT : PRINT CHR$ C4>; ,, PR#4" 

The empty PRINT statement ensures that any upcoming 
PRINT command starts at the left margin. The CHR$ (4) 
before the “PR#4” indicates that you are printing a 
ProDOS command rather than text. See your ProDOS 
manual for more details. 


Turning the Mouse On 

The order of these steps is important; follow it whenever you 
are turning the mouse on in a BASIC program. 

1. First, use the PR# command to tell the computer that you 
want to communicate with the mouse. Since PR# is an 
operating system command, it must be treated as an 
embedded ProDOS command: 

PRINT CHR $ (4) ; M PR*4" 

2. When you are hooked up to the mouse, turn it on, using 
PRINT CHR$ (1) 

3. Then use PR# to tell the computer to send information to 
the screen instead of somewhere else. Note that you treat 
PR# like a ProDOS command: 

PRINT CHR$ C4>; ,, PR#0 M 

4. Next, direct the computer to accept input from the mouse 
with IN#, remembering again to treat it as a disk 
operating system command: 

PRINT CHR$ C4);"IN#4" 
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5. Finally, use an INPUT statement to define variable names 
for mouse information. The statement is in the form 

INPUT X , Y , S 

where X is the horizontal location of the mouse, Y is the 
vertical position of the mouse, and S is the status of the 
mouse button. Possible values of these three variables 
are: 

X = a number in the range 0 to +1023 
Y = a number in the range 0 to +1023 
S = a number in the range +1 to +4 or -1 to -4 

If S = 1 then the mouse button is still being pressed; if S 
= 2 then the mouse button has just been pressed; if S = 
3 then the mouse button has just been released; if S = 4 
then the mouse button has not been pressed; if S < 0 
then a key on the keyboard has been pressed. 


Turning the Mouse Off 

The steps you use to turn the mouse off are similar to those 
you use to turn the mouse on. 

1. PRINT CHR$ Directs the computer to 

( 4 ) ; " I N # 0 " accept information from the 

keyboard. 

Directs the computer to 
send information to the 
mouse (rather than the video 
screen). 

3. PRINT CHR $ ( 0) Returns the mouse to 

coordinates 0,0. 

4 . PRINT CHR$ Directs the computer to 

(4) ; "PR#0" resume sending information 

to the video screen. 

The two BASIC programs that follow show you how to turn 
the mouse on and off, and how to use input from the mouse. 
Study these programs, play with them, and modify them to 
suit your own needs. 


2. PRINT CHR $ 
( 4 ) ; "PR*4" 
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MOUSE.MOVE 


The program named MOUSE.MOVE demonstrates the 
positions of the mouse. This program reads and displays the 
current location of the mouse and the status of the mouse 
button (whether it was just pressed, is currently being 
pressed, and so on). MOUSE.MOVE is on the Applesoft 
Sampler disk. 

Run the program, then move the mouse over your desktop 
and watch the coordinates change. Press the mouse button 
and see the status change. Press any key to stop the 
program. 


MOUSE.MOVE Program Listing 

10 HOME 

20 PRINT "THIS IS A DEMONSTRATION OF THE 
MOUSE" 

30 PRINT CHR$ C4>;"PR#4": PRINT CHR$ (1) 

40 PRINT CHR $ C4);"PR#0" 

50 PRINT CHR $ (4>;"IN#4" 

60 INPUT "" ; X , Y , S 

70 VTAB 10: PRINT X;" ",Y" ",S" 

80 IF S > 0 THEN GOTO 60 
90 PRINT CHR$ C4);"IN#0" 

100 PRINT CHR$ C4);"PR#4": PRINT CHR$ C0) 
110 PRINT CHR$ C4);"PR#0" 

120 POKE -16368,0: REM CLEAR KEYBOARD STROBE 
130 END 
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How MOUSE.MOVE Works 

Line 10 clears the screen to black. 

Line 20 prints a message. 

Line 30 turns on the mouse. 

Line 40 redirects the computer to send information to the 
video screen. 

Line 50 tells the computer to accept input from the mouse. 

Line 60 uses an empty string as a prompt to suppress the 
question mark, then reads the mouse position and status of 
the mouse button. 

Line 70 prints the mouse position and status of the mouse 
button. 

Line 80 goes to line 60 if no key has been pressed. 

Line 90 tells the computer to accept input from the 
keyboard. 

Lines 100 and 110 turn off the mouse. 

Line 120 resets the keyboard strobe so that the next time a 
key is pressed BASIC can check for it (see the Applesoft 
BASIC Programmer’s Reference Manual, Appendix F, 
section F.2 for details). 

Line 130 ends the program. 
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MOUSE. DRA W 


This program is an expanded version of MOUSE. MOVE. In 
this program, you can cause the mouse to draw pictures on 
the low-resolution graphics screen. Pressing the mouse 
button clears the screen and lets you produce a new picture. 


MOUSE.DRAW Program Listing 

10 REM USES MOUSE TO DRAW LOW-RESOLUTION 
GRAPHICS 

100 GOSUB 1000: REM TURN ON THE MOUSE 
110 PRINT CHR$ (4);"IN*4" 

120 INPUT "" ;X,Y,S: REM READ MOUSE POSITION 
130 IF S = 1 THEN 100: REM CLEAR THE SCREEN 

140 IF S < 0 THEN 300: REM TIME TO QUIT? 

150 REM SCALE THE POSITION 
160 X = INT (X / 25.575) 

170 Y = INT (Y / 25.575) 

180 PLOT X , Y 
190 GOTO 120 

300 REM CHECK IF TIME TO QUIT 

310 POKE -16368,0: REM CLEAR KEYBOARD STROBE 

320 PRINT CHR$ (4);"IN#0" 

330 VTAB 22: PRINT "PRESS RETURN TO CONTINUE 
OR ESC TO QUIT" 

340 VTAB 22: HTAB 39: GET A$: PRINT 

350 IF A$ = CHR$( 13) THEN HOME : GOTO 110 

360 IF A$ < > CHR$ C27) THEN 340 

370 REM CLEAR SCREEN AND TURN OFF MOUSE 

380 TEXT : HOME 

390 PRINT CHR$ (4);"PR#4": PRINT CHR$ (0) 
400 PRINT CHR$ (4);"PR#0" 

410 END 

1000 REM CLEAR SCREEN AND INITIALIZE MOUSE 
1010 HOME : GR 
1020 C0L0R= 15 

1030 PRINT CHR$ (4);"PR#4": PRINT CHR$ (1) 
1040 PRINT CHR$ (4);"PR#0" 

1050 RETURN 


MOUSE.DRAW 


261 


How MOUSE.DRAW Works 

Line 10 reminds you what the program does. 

Line 100 goes to the subroutine at line 1000 to turn on the 
mouse and the low-resolution graphics page. 

Line 110 tells the computer to accept input from the mouse. 

Line 120 uses an empty string to suppress the question 
mark, then reads the mouse position and status of the 
mouse button. 

Line 130 if the mouse button is pressed, goes to line 100 and 
begins again. 

Line 140 if a key is pressed, goes to line 300 and checks for 
an end. 

Line 150 reminds you what the next two lines do. 

Lines 160 and 170 convert the mouse position to low- 
resolution graphics coordinates. 

Line 180 plots a point on the low-resolution screen. 

Line 190 goes back to line 120 and does it all again. 

Line 300 reminds you what the next group of statements 
does. 

Line 310 resets the keyboard strobe so that the next time a 
key is pressed BASIC can check for it (see the Applesoft 
BASIC Programmer’s Reference Manual, Appendix F, 
section F.2 for details). 

Line 320 tells the computer to accept input from the 
keyboard. 

Line 330 prints a line of instructions on the screen. 

Line 340 gets a character from the keyboard. 

Line 350 if you press (return) , goes back to the main 
program for more graphics; otherwise goes to the next line. 

Line 360 if you didn’t press (esc) goes back to 340 and gets 
another character. 
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Line 370 reminds you of what happens next. 

Line 380 sets the screen to text and clears it. 

Lines 390 and 400 turn off the mouse. 

Line 410 ends the program. 

Line 1000 reminds you what this subroutine does. 

Line 1010 clears the screen and turns on the low-resolution 
graphics screen. 

Line 1020 sets the graphics color to white. 

Lines 1030 and 1040 turn on the mouse. 

Line 1050 returns to the main program. 
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address: A number used to identify a location in the computer’s 
memory. 

algorithm: A step-by-step procedure for solving a problem or 
accomplishing a task. 

Apple lie: A personal computer in the Apple II family, with a disk 
drive and 80-column capability built in, manufactured and sold by 
Apple Computer. 

Apple lie: A personal computer in the Apple II family, 
manufactured and sold by Apple Computer. 

Applesoft: An extended version of the BASIC programming 
language used with the Apple II family of computers. An interpreter 
for creating and executing programs in Applesoft is built into the 
computer’s firmware. 

application program: A program that puts the resources and 
capabilities of the computer to use for some specific purpose or 
task, such as word processing, data base management, graphics, 
or telecommunications. Compare system program. 

argument: The value on which a function operates. An argument 
can be a number or a variable and is contained in parentheses 
following the function. 

arithmetic expression: A combination of numbers and 
arithmetic operators (such as 3 + 5) that indicates some operation 
to be carried out. 

arithmetic operations: The five actions Applesoft can perform 
with numbers (addition, subtraction, multiplication, division, and 
exponentiation). 

arithmetic operator: An operator, such as +, that combines 
numeric values to produce a numeric result. Compare relational 
operator, logical operator. 
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array: A collection of variables referred to by the same name and 
distinguished by means of numeric subscripts. Each variable in the 
array can be addressed independently by using that variable’s 
unique subscript. 

ASCII: American Standard Code for Information Interchange: A 
code in which the numbers from 0 to 127 stand for text characters, 
including the digits 0 through 9, the letters of the alphabet, 
punctuation marks, special characters, and control characters. 
The code is used for representing text inside a computer and for 
transmitting text between computers or between a computer and a 
peripheral device. 

assembly language: A low-level programming language in which 
individual machine-language instructions are written in a symbolic 
form more easily understood than machine language by a human 
programmer. 

BASIC: Beginner’s All-purpose Symbolic Instruction Code: A 
high-level programming language designed to be easy to learn and 
use. The version of BASIC available from Apple Computer for use 
with the Apple lie and lie under ProDOS is Applesoft (built into 
Apple computers in firmware). 

binary: The representation of numbers in terms of powers of 2, 
using the two digits 0 and 1. Commonly used in computers, since 
the values 0 and 1 can easily be represented in physical form in a 
variety of ways, such as the presence or absence of current, 
positive or negative voltage, or a white or black dot on the display 
screen. 

binary operator: An operator that combines two operands to 
produce a result; for example + is a binary arithmetic operator, 

< is a binary relational operator, and OR is a binary logical 
operator. Compare unary operator. 

bit: A binary digit (0 or 1); the smallest possible unit of 
information that a computer can hold, consisting of a simple two- 
way choice, such as yes or no, on or off, positive or negative, 
something or nothing. 

boot: To start up a computer by loading a program into memory 
from an external storage medium such as a disk. Often 
accomplished by first loading a small program whose purpose is 
to read the larger program into memory. The program is said to 
“pull itself in by its own bootstraps” — hence the term 
bootstrapping or booting. 

boot disk: See startup disk. 
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bootstrap: See boot. 


branch: To send program execution to a line or statement other 
than the next in sequence. 

buffer: An area of the computer’s memory reserved for a specific 
purpose, such as to hold graphic information to be displayed on 
the screen or text characters being read from some peripheral 
device. Often used as an intermediary holding area for transferring 
information between devices operating at different speeds, such 
as the computer’s processor and a printer or disk drive. 
Information can be stored in the buffer by one device and then 
read out by the other at a different speed. 

bug: An error in a program that causes it to not work as 
intended. 

byte: A unit of information consisting of a fixed number of bits; 
on the Apple computer, one byte consists of eight bits and can 
hold any value from 0 to 255. Each character in the ASCII code can 
be represented by one byte, with an extra bit left over. 

call: To request the execution of a subroutine or function. 

catalog: A list of all files stored on a disk; sometimes called a 
directory. 

central processing unit: See processor. 

character: A letter, digit, punctuation mark, or other written 
symbol used in printing or displaying information in a form 
readable by humans. 

character limit: The maximum number of characters allowed in 
a single Applesoft statement: 255. 

chip: The small piece of semiconducting material (usually silicon) 
on which an integrated circuit is fabricated. The word chip 
properly refers only to the piece of silicon itself, but is often used 
to mean an integrated circuit and its package; see integrated 
circuit. 

code: (1) A number or symbol used to represent some piece of 
information in a compact or easily processed form. (2) The 
statements or instructions making up a program. 

cold start: The process of starting up the computer when the 
power is first turned on (or as if the power had just been turned on) 
by loading the operating system into main memory, then loading 
and running a program. Compare warm start. 
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column: A vertical arrangement of graphics points or character 
spaces on the screen. 

command: A communication from the user to a computer 
system (usually typed from the keyboard) directing it to perform 
some immediate action. 

computer: An electronic device for performing predefined 
(programmed) computations at high speed and with great 
accuracy. A machine that is used to store, transfer, and transform 
information. 

computer language: See programming language. 

computer system: A computer and its associated hardware, 
firmware, and software. 

concatenate: Literally, “to chain together”; to combine two or 
more strings into a single, longer string containing all the 
characters in the original strings. 

conditional branch: A branch that depends on the truth of a 
condition or the value of an expression. Compare unconditional 
branch. 

control: The order in which the statements of a program are 
executed. 

control character: A character that controls or modifies the way 
information is printed or displayed. Control characters have ASCII 
codes between 0 and 31 and are typed from the Apple’s keyboard 
by holding down the (control) key while typing some other 
character. For example, the character (control ) - fivO (ASCII code 
13) means “return to the beginning of the line” and is equivalent to 
the (return) key. 

CPU: Central processing unit. See processor. 

crash: To cease operating unexpectedly, possibly damaging or 
destroying information in the process. 

CRT: See cathode-ray tube. 

cursor: A marker or symbol displayed on the screen that marks 
where the user’s next action will take effect or where the next 
character typed from the keyboard will appear. The cursor is 
usually a white box, an underline, or a flashing checkerboard box. 

data: Information; especially information used or operated on by 
a program. 
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debug: To locate and correct an error or the cause of a problem 
or malfunction in a computer system. Typically used to refer to 
software-related problems. Compare troubleshoot. 

decimal: The common form of number representation in which 
numbers are expressed in terms of powers of 10, using the ten 
digits 0 to 9. 

default: A value, action, or setting that is automatically used by a 
computer system when no other explicit information has been 
given. For example, if a command to run a program from a disk 
does not identify which disk drive to use, the Professional Disk 
Operating System automatically uses the same drive that was 
used in the last operation. 

deferred execution: The saving of an Applesoft program line for 
execution at a later time as part of a complete program; occurs 
when the line is typed with a line number. Compare immediate 
execution. 

delimiter: A character that is used for punctuation to mark the 
beginning or end of a sequence of characters, and that therefore is 
not considered part of the sequence itself. For example, Applesoft 
uses the double quotation mark (”) as a delimiter for string 
constants: the string “DOG” consists of the three characters D, O, 
and G, and does not include the quotation marks. In written 
English, the space character is used as a delimiter between words. 

digit: (1) One of the characters 0 to 9, used to express numbers 
in decimal form. (2) One of the characters used to express 
numbers in some other form, such as 0 and 1 in binary or 0 to 9 
and A to F in hexadecimal. 

dimension: (1) One tier of data in an array. (2) To specify with the 
DIM statement how many elements an array can hold. 

disk: An information storage medium consisting of a flat, 
circular magnetic surface on which information can be recorded in 
the form of small magnetized spots, similar to the way sounds are 
recorded on tape. 

disk drive: A peripheral device that writes and reads information 
on the surface of a magnetic disk. 

diskette: A term sometimes used for the small (5-1/4-inch) 
flexible disks used with Apple disk drives. 

Disk II drive: A model of disk drive made and sold by Apple 
Computer for use with the Apple lie and lie; uses 5-1/4-inch 
flexible (“floppy”) disks. 


[269 


Glossary 


Disk Operating System: An optional software system for the 
Apple lie that enables the computer to control and communicate 
with one or more Disk II drives. See Professional Disk Operating 
System. 

display: (1) Information exhibited visually, especially on the 
screen of a display device. (2) To exhibit information visually. 

(3) A display device. 

display screen: The glass or plastic panel on the front of a 
display device on which images are displayed. 

DOS: Acronym for Disk Operating System. 

edit: To change or modify; for example, to insert, remove, 
replace, or move text in a document. 

element: A member of a set or collection; specifically, one of the 
individual variables making up an array. See also subscript. 

error message: A message displayed or printed to notify the 
user of an error or problem in the execution of a program. 

escape mode: A state of the Apple computer, entered by 
pressing (esc) , in which certain keys on the keyboard take on 
special meanings for positioning the cursor and controlling the 
display of text on the screen. 

escape sequence: A sequence of keystrokes beginning with the 
(esc) key, used for positioning the cursor and controlling the 
display of text on the screen. 

execute: To perform or carry out a specified action or sequence 
of actions, such as those described by a program. 

expression: A formula in a program describing a calculation to 
be performed. 

file: A collection of information stored as a named unit on a 
peripheral storage medium such as a disk. 

filename: The name under which a file is stored. 

firmware: In a computer system, programs stored permanently 
in read-only memory. Such programs (for example, the Applesoft 
interpreter and the Apple lie and lie monitor program) are built 
into the computer at the factory; they can be executed at any time 
but cannot be modified or erased from main memory. Compare 
hardware, software. 

flexible disk: A disk made of flexible plastic; often called a floppy 
disk. 
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floppy disk: See flexible disk. 

format: (1) The form in which information is organized or 
presented. (2) To specify or control the format of information. 

(3) To prepare a blank disk to receive information by dividing its 
surface into tracks and sectors. 

function: A preprogrammed calculation that can be carried out 
on request from any point in a program. 

graphics: (1) Information presented in the form of pictures or 
images. (2) The display of pictures or images on a computer’s 
display screen. Compare text. 

hang: For a program or system to “spin its wheels” indefinitely, 
performing no useful work. 

hardware: Those components of a computer system consisting 
of physical (electronic or mechanical) devices. Compare software, 
firmware. 

hexadecimal: The representation of numbers in terms of powers 
of 16, using the sixteen digits 0 to 9 and A to F. Hexadecimal 
numbers are easier for humans to read and understand than 
binary numbers, but can be converted easily and directly to binary 
form: each hexadecimal digit corresponds to a sequence of four 
binary digits, or bits. 

high-level language: A programming language that is relatively 
easy for humans to understand. FORTRAN, BASIC, and Pascal are 
all examples of high-level languages. A single statement in a high- 
level language typically corresponds to several instructions of 
machine language. 

high-resolution graphics: The display of graphics on the Apple’s 
display screen as a six-color array of points, 280 columns wide and 
192 rows high. When the text window is in use, the visible high- 
resolution graphics display is 280 by 160 plotting points. 

immediate execution: The execution of an Applesoft program 
line as soon as it is typed; occurs when the line is typed without a 
line number. This is a particular advantage of Applesoft that is not 
available in many other programming languages. It means that you 
can try out nearly every statement immediately to see how it works. 
Compare deferred execution. 

infinite loop: A section of a program that will repeat the same 
sequence of actions indefinitely. 

information: Facts, concepts, or instructions represented in an 
organized form. 
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input: (1) Information transferred into a computer from some 
external source, such as the keyboard, a disk drive, or a modem. 
(2) The act or process of transferring such information. 

interface: The devices, rules, or conventions by which one 
component of a system communicates with another. 

inverse video: The display of text on the computer’s display 
screen in the form of dark dots on a light background, instead of 
the usual light dots on a dark background. 

I/O: Input/output: the transfer of information into and out of a 
computer. See input, output. 

K: Two to the tenth power, or 1024 (from the Greek root kilo, 
meaning one thousand); for example, 64K equals 64 times 1024, or 
65,536. 

keyboard: The set of keys built into the Apple computer, similar 
to a typewriter keyboard, for entering information into the 
computer. 

keystroke: The act of pressing a single key or a combination of 
keys (such as ( control ) - fc] ) on the computer’s keyboard. 

keyword: A special word or sequence of characters that 
identifies a particular type of statement or command, such as RUN 
or PRINT. 

kilobyte: A unit of information consisting of IK (1024) bytes, or 
8K (8192) bits. See K. 

language: See programming language. 

line: See program line. 

line number: A number identifying a program line in an 
Applesoft program. Line numbers are necessary for deferred 
execution. 

load: To transfer information from a peripheral storage medium 
(such as a disk) into main memory for use; for example, to transfer 
a program into memory for execution. 

location: See memory location. 

logical operator: An operator, such as AND, that combines 
logical values to produce a logical result; compare arithmetic 
operator, relational operator. 

loop: A section of a program that is executed repeatedly until the 
limit is met. 
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low-level language: A programming language that is relatively 
close to the form that the computer’s processor can execute 
directly. Assembly language is an example. 

low-resolution graphics: Display of graphics on the Apple’s 
display screen as a 16-color array of blocks, 40 columns wide and 
48 rows high. When the text window is in use, the visible low- 
resolution graphics display is 40 by 40 plotting points. 

machine language: The form in which instructions to a computer 
are stored in memory for direct execution by the computer’s 
processor. Each model of computer processor has its own form of 
machine language. 

main memory: The memory component of a computer system 
that is built into the computer itself and whose contents are 
directly accessible to the processor. 

memory: A hardware component of a computer system that can 
store information for later retrieval. See main memory, random 
access memory, read-only memory, read-write memory. 

memory location: A unit of main memory that is identified by an 
address and can hold a single item of information of a fixed size; in 
the Apple lie and lie, a memory location holds one byte, or eight 
bits, of information. 

menu: A list of choices presented by a program, usually on the 
display screen, from which the user can select. 

mode: A state of a computer or system that determines its 
behavior. 

monitor: See video monitor. 

mouse: A peripheral device for the Apple lie and lie. Typically, 
rolling the mouse along a flat surface moves a pointer or cursor on 
the video screen. 

nested loop: A loop contained within the body of another loop 
and executed repeatedly during each pass through the containing 
loop. 

normal: Video display format made up of light dots on a dark 
background. See inverse. 

null string: A string containing no characters. 

operating system: A software system that organizes the 
computer’s resources and capabilities and makes them available 
to the user or to application programs running on the computer. 


[273 


Glossary 


operator: A symbol or sequence of characters, such as + or 
AND, specifying an operation to be performed on one or more 
values to produce a result. See arithmetic operator, relational 
operator, logical operator, unary operator, binary operator. 

output: (1) Information transferred from a computer to some 
external destination, such as the display screen, a disk drive, a 
printer, or a modem. (2) The act or process of transferring such 
information. 

page: (1) A screenful of information on a video display, 
consisting on the Apple of 24 lines of 40 or 80 characters each. 

(2) An area of main memory containing text or graphic information 
being displayed on the screen. 

peripheral: At or outside the boundaries of the computer itself, 
either physically (as a peripheral device) or in a logical sense (as a 
peripheral card). 

precedence: The order in which operators are applied in 
evaluating an expression. 

processor: The hardware component of a computer that 
performs the actual computation by directly executing instructions 
represented in machine language and stored in main memory. 

ProDOS: Acronym for Professional Disk Operating System. 

Professional Disk Operating System: A software system for the 
Apple II computer family that enables the computer to control and 
communicate with one or more disk drives. 

program: (1) A set of instructions, conforming to the rules and 
conventions of a particular programming language, describing 
actions for a computer to perform in order to accomplish some 
task. In Applesoft, a sequence of program lines, each with a 
different line number. (2) To write a program. 

program line: The basic unit of an Applesoft program, consisting 
of one or more statements separated by colons (:). 

programmer: The human author of a program; one who writes 
programs. 

programming: The activity of writing programs. 

programming language: A set of rules or conventions for writing 
programs. 

prompt: To remind or signal the user that some action is 
expected, typically by displaying a distinctive symbol, a reminder 
message, or a menu of choices on the display screen. 
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prompt character: A text character displayed on the screen to 
prompt the user for some action. Often also identifies the program 
or component of the system that is doing the prompting; for 
example, the prompt character ] is used by the Applesoft BASIC 
interpreter, and an asterisk (*) by the system monitor program. 
Also called prompting character. 

prompt message: A message displayed on the screen to prompt 
the user for some action. Also called prompting message. 

radio-frequency modulator: A device for converting the video 
signals produced by a computer to a form that can be accepted by 
a television set. 

RAM: Acronym for random-access memory. 

random-access memory: Memory in which the contents of 
individual locations can be referred to in an arbitrary or random 
order. This term is often used incorrectly to refer to read-write 
memory, but strictly speaking both read-only and read-write 
memory can be accessed in random order. Random-access 
means that each unit of storage has a unique address and a 
method by which each unit can be immediately read from or 
written to. Compare read-only memory, read-write memory. 

read: To transfer information into the computer’s memory from a 
source external to the computer (such as a disk drive or modem) 
or into the computer’s processor from a source external to the 
processor (such as the keyboard or main memory). 

read-only memory: Memory whose contents can be read but not 
written; used for storing firmware. Information is written into read- 
only memory once, during manufacture; it then remains there 
permanently, even when the computer’s power is turned off, and 
can never be erased or changed. Compare read-write memory, 
random-access memory. 

read-write memory: Memory whose contents can be both read 
and written; often misleadingly called random-access memory, or 
RAM. the information contained in read-write memory is erased 
when the computer’s power is turned off, and is permanently lost 
unless it has been saved on a more permanent storage medium 
such as a disk. Compare read-only memory, random-access 
memory. 

relational operator: An operator, such as >, that compares 
numeric values to produce a logical result. Compare arithmetic 
operator, logical operator. 
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reserved word: A word or sequence of characters reserved by a 
programming language for some special use, and therefore 
unavailable as a variable name in a program. 

RF modulator: See radio-frequency modulator. 

ROM: Acronym for read-only memory. 

routine: A part of a program that accomplishes some task 
subordinate to the overall task of the program. 

row: A horizontal arrangement of character spaces or graphics 
points on the screen. 

run: (1) To execute a program. (2) To load a program into main 
memory from a peripheral storage medium, such as a disk, and 
execute it. 

save: To transfer information from main memory to a peripheral 
storage medium for later use. 

scientific notation: A method of expressing numbers in terms of 
powers of 10, useful for expressing numbers that may vary over a 
wide range, from very small to very large. For example, the number 
of atoms in a gram of hydrogen is approximately 6.02E23, 
meaning 6.02 times 10 to the 23rd power. (The letter E stands for 
exponent.) The number is easier to understand in this form than in 
the form 602000000000000000000000. Applesoft uses this 
method to display real precision numbers with more than nine 
digits. 

screen: See display screen. 

scroll: To change the contents of all or part of the display screen 
by shifting information out at one end (most often the top) to make 
room for new information appearing at the other end (most often 
the bottom), producing an effect like that of moving a scroll of 
paper past a fixed viewing window. See viewport, window. 

simple variable: A variable that is not an element of an array. 

software: Those components of a computer system consisting of 
programs that determine or control the behavior of the computer. 
Compare hardware, firmware. 

space character: A text character whose printed representation 
is a blank space, typed from the keyboard by pressing the 
(space) bar. 

startup disk: A disk containing software recorded in the proper 
form to be loaded into the computer’s memory to set the system 
into operation. Sometimes called a boot disk. See boot. 
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statement: A unit of a program in a high-level language 
specifying an action for the computer to perform, typically 
corresponding to several instructions of machine language. 

step value: The amount by which a variable changes on each 
pass through a loop. 

string: An item of information consisting of a sequence of test 
characters. Both “flipping frogs endanger widow’s mite” and “A 
+ B / 973 = 14” are strings. 

subroutine: A part of a program that can be executed on request 
from any point in the program, and that returns control to the 
point of the request on completion. 

subscript: An index number used to identify a particular element 
of an array. 

syntax: The rules governing the structure of statements or 
instructions in a programming language. 

television set: A display device capable of receiving broadcast 
video signals (such as commercial television) by means of an 
antenna. Can be used in combination with a radio-frequency 
modulator as a display device for computers in the Apple II family. 
Compare video monitor. 

text: (1) Information presented in the form of characters 
readable by humans. (2) The display of characters on the Apple’s 
display screen. Compare graphics. 

text window: An area on the computer’s display screen within 
which text is displayed and scrolled. 

unary operator: An operator that applies to a single operand; for 
example, the minus sign (-) in a negative number such as -6 is a 
unary arithmetic operator. Compare binary operator. 

unconditional branch: A branch that does not depend on the 
truth of any condition. Compare conditional branch. 

user: The person operating or controlling a computer system. 

value: An item of information that can be stored in a variable, 
such as a number or a string. 

variable: (1) A location in the computer’s memory where a value 
can be stored. (2) The symbol used in a program to represent such 
a location. Compare constant. 

video: (1) A medium for transmitting information in the form of 
images to be displayed on the screen of a cathode-ray tube. (2) 
Information organized or transmitted in video form. 
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video monitor: A display device capable of receiving video 
signals by direct connection only, and that cannot receive 
broadcast signals such as commercial television. Can be 
connected directly to the computers in the Apple II family. 
Compare television set. 

viewport: All or part of the display screen, used by an 
application program to display a portion of the information (such 
as a document, picture, or worksheet) that the program is working 
on. Compare window. 

warm start: The process of restarting the computer after the 
power is already on, without reloading the operating system into 
main memory and often without losing the program or information 
already in main memory. Compare cold start. 

window: The portion of a collection of information (such as a 
document, picture, or worksheet) that is visible in a viewport on 
the display screen. Compare viewport. 

wraparound: The automatic continuation of text from the end of 
one line to the beginning of the next, as on the display screen or a 
printer. 

write: To transfer information from the computer to a destination 
external to the computer (such as a disk drive, printer, or modem) 
or from the computer’s processor to a destination external to the 
processor (such as main memory). 

write-enable notch: The square cutout in one edge of a disk’s 
jacket that permits information to be written on the disk. If there is 
no write-enable notch, or if it is covered with a write-protect tab, 
information can be read from the disk but not written onto it. 

write-protect: To protect the information on a disk by covering 
the write-enable notch with a write-protect tab, preventing any 
new information from being written onto the disk. 

write-protect tab: A small adhesive sticker, usually silver, used 
to write-protect a disk by covering the write-enable notch. 
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Cast of Characters 

* (asterisk) 12, 36, 152 
\ (backslash) 8 
~ (caret) 13, 36 
$ (dollar sign) 139 

CD 86 

= (equal sign) 32 
0 7 « 86 > 87, 90, 91 
- (minus sign) 12, 35, 36 
() (parentheses) 37-38, 76, 115, 
141, 149, 156 
4- (plus sign) 12, 36, 147 
0 7, 85, 86, 87, 92 

? (question mark) 34, 187 
” (quotation marks) 5, 7, 13, 31, 
55, 140, 148-149 
/ (slash mark) 12, 36, 93 

CD 86 

A 

addition 12, 61, 113 
address, memory 111, 112, 197, 
198 

ALPHABET program 143-145 
alternating between black and 
color in graphics 106 
animation in programming 
118-128 

Applesoft BASIC xv, 5 
and the mouse 255-256 
defined xiv 

further information on 10 
Applesoft Sampler disk xvi, xvii, 
64, 102 

ALPHABET program 143-145 
COLORBOUNCE program 
101-114, 120, 153 
COLORBOUNCE2 
program 154 


COLORLOOP program 63-64 
CONVERTER program 201, 
242-252 

DECIMAL program 150-152 
DISK. MENU program 201, 
233-242 

HORSES program 118-128 
HUE program 72-73 
MAGIC. MENU program 201, 
210-232 

Main Menu 3-5 
MOIRE program 134-136 
MOUSE. DRAW program 
261-263 

MOUSE. MOVE program 
259-260 

QUILT program 73 
RANDOM program 116-117 
SCRAMBLER 201, 202-210 
SPACES program 77 
Applesoft statements 165-181 
Apple lie xvii, 217 
Apple lie 64, 217 
copying disks on xvii 
formatting disks on xvii 
using a cassette recorder 
with xvi, 56, 58, 195 
application program 160 
arguments 76, 112, 115 
in strings 150 
arithmetic expressions 60 
functions 12, 61, 112 
operations 12, 61 
arrays 167,205 
dimensioning 156-157 
elements in 154 
error messages 159-160 
manipulating tables of data with 
158 

one-dimensional 154-155 
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two-dimensional 154-155 
arrow keys 96 

using to copy characters 85-87, 
90-92 

using to correct mistakes 7, 86, 
87 

ASC function 165 
ASCII code 165, 166, 257 
asterisk (*) 12, 36, 152 
automatic indentation 92 

B 

backslash (\) 8 

backward spelling 146-147 
?BAD SUBSCRIPT ERROR 159, 
188 

BASIC xiv, xv, 5, 10, 255-256 
binary 
code 166 

numbering system 59 
black-and-white monitors 21, 
134, 167 

blackboxes 211,212,218 
blinking underline cursor 212 
block-structured program 202 
Boolean logic 219 
branching 50, 121 
BREAK-IN 110 
(message) 51 

built-in arithmetic functions 1 12 
built-in drive 63 
bytes 11,112,197 

c 

calculations 12-15, 36 
CALL statement 151-152, 165 
?CAN’T CONTINUE ERROR 188 
(capslock) key 5 
caret (~) 13,36 

cassette recorder 175, 195 
cassette tape 58,175,195 
CAT (CATALOG) command 5, 56, 
166 

changing your work See editing 
character(s) 10 
limit 8, 9 
in strings 139 
CHR? function 166, 257 
circumflex See caret 
CLEAR statement 147, 167 


colon 102-103, 207, 212 
color 

groups 20, 21 
in high-resolution 
graphics 129-136 
in low-resolution graphics 
17-27 

plotting 19-22, 106-107 
COLOR 30, 73, 108 
COLORBOUNCE program 
101-114, 120, 153 
COLORBOUNCE2 
program 154 

COLOR= statement 17-22, 64, 
167 

COLORLOOP program 63-64 
columns 79 
comma 74-75, 207, 212 
computer 

identifier routine 217 
language xiv 
program xiv 
speaker 1 1 1 
computations 28, 32-38 
concatenation 147-148 
conditional loops 61-64 
conditional statements 58, 60-61 
conditions, evaluating 59 
CONT statement 51, 52, 67, 167 
control character 93 
( CONTROL ) - fcT) 51,61,67,193 
(CONTROL) - ! RESET) 193 
( CONTROL ) - (TT) 95 

( CONTROL ) -(~>T) 93 

controlling spaces in 
programs 74-79 
CONVERTER program 201, 
242-252 

coordinates 23, 120, 129 
correcting lines See editing 
counter(s) 70 
variables 206 
crossed loops 72-73 
cursor 

blinking checkerboard 5 
blinking underline 212 
in escape mode 86-88 
movement keys 96-97 
with HTAB 77 
with VTAB 76 
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D 

dark-on-light 11 
DATA statement 168 
debugging statement 123 
decimal(s) 198 
address 165 

DECIMAL program 150-152 
default dimension 159 
deferred execution 
advantages of 48 
defined 43 

DEL statement 94, 168 
( delete ) key 94, 168 
deleting program lines 93-94 
dice, simulating toss of 117 
DIM statement 169 
dimensioning arrays 156-157 
dimensions 154 
Disk Operating System See DOS 
DISK. MENU program 201, 
233-242 
disk(s) 

Applesoft Sampler xvi 
directory 58 

drives xvi, 57, 58, 63, 64, 166 
introductory xviii 
sectors 166 
startup 57 

displaying programs 44, 49 
division 12, 61, 113 
7DIVISION BY ZERO ERROR 188 
dollar sign ($) 139 

DOS (Disk Operating System) xiv, 
xvii 

drawing 

diagonal lines 134 
horizontal lines 24-26 
horses 119-128 
straight lines 132-133 
vertical lines 26 
drive 1 57, 63, 166 

drive 2 57, 64 
duplicating strings 145 

E 

editing 49 

by deleting lines 93-94 
history of 96 
in escape mode 83-95 
summary of Applesoft 
features 97-98 

80-column displays xvii, 197, 217, 
218 


electricity used by Apple 10 
elements 154-159, 168 
END statement 62, 124, 169 
erasing programs 44, 49 
error(s) 

messages, formats for 187-191 
preventing 154 
trapping 125-126, 153 
(ESC] key 83,86,87,193 
(ESC)-© 87 

(ESCl -fEl 87 
(Iscl -fT) 87 
escape mode 96 
advantages of 95, 126 
how to enter 83 
limits of 87-88 
practice sessions 84-92 
rules for using 86-87 
equal sign ( = ) 32 
executing programs 44-49 
execution 
deferred 43 
immediate 43 
exiting from Main Menu 5 
exponentiation 13, 36, 61 

F 

false conditions 59, 61, 62 
file types 166 
Filer 195-196 
flags 222, 233 
FOR statement 72, 169 
formatted disks 56, 195-196 
formatting 56, 195-196 
7FORMULA TOO COMPLEX 
ERROR 188 
FOR/NEXT statement 72 
advantages of 70 
defining variable range with 
69-70 

loops 69-70 

40-column displays xvii, 92, 197, 
218 

functions 112, 141 
INT 116-117 
LEFTS 141-143 
LEN 141 
MID$ 141-143 
PEEK 111-114 
RIGHTS 141-143 
RND 115-118 
STR$ 179 
TAB 76-78, 180 
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G 

game construction 101-107 
garbage 28 

GET RETURN routine 213 
GOSUB statement 121, 128, 170 
GOTO statement 50, 52, 61, 146, 
170 

GR statement 16-17, 170 
graphics 63, 64, 118' 
display 78 
grid 104-105, 125 
high-resolution 129, 136 
low-resolution 16-27 
mode 73, 79 
motion in 104 

green-phosphor monitor 21,167 

H 

H (high-resolution graphics 
commands) 130 
H COLOR statement 130, 132, 
170 

hexadecimal 198 
HGR statement 130, 171, 172 
high-resolution graphics 129-136 
HLIN statement 24-26, 171 
HOME statement 11,22,27, 171 
horizontal coordinates 129 
HORSES program 118, 128 
HPLOT statement 132-134, 
171-172 

HTAB statement 77-78, 172 
HUE program 72 
hung system 193 
hyphen with keycaps 51 

/ 

IF statement 65-66, 172 
IF.. .THEN statement 58, 61-67, 
103, 172 

7ILLEGAL DIRECT ERROR 188 
7ILLEGAL QUANTITY ERROR 23, 
78, 110, 160, 188 

immediate execution 43,147,167 
indentation, automatic 92 
infinite loops 67 
informational statements 68 
IN# command 173 
IN#0 command 256 
IN#4 command 256 
INPUT routine 212 


INPUT statement 55, 108-110, 
173, 207, 258 
defined 53 
how to use 54,109 
inserting text 88-92 
INT function 116, 174 
integer(s) 
function 116 
in strings 149 
random 117 
interacting with a program 
user See INPUT 
INVERSE statement 11, 174 

J, K 

keywords 6, 7, 34, 49 
kilobytes 111 

L 

LEFTS function 141-143, 174 
LEN function 141, 174 
length function 141 
LET statement 28, 32, 34, 174 
light-on-dark 11 
limiting programs 51, 61 
line numbers 44, 52, 53, 71, 123 
leaving space between 47, 67 
LIST statement 44-49, 175 
specifying numbers in 53 
lists of data 154 
LOAD command 58, 175 
loops 69-73, 105, 106, 113 
conditional 61-64 
crossed 72-73 
infinite 67 
nested 72-73 
using to scan through a 
string 145 

with the GOTO command 
50-53 

lowercase letters 5 
low-resolution graphics 16-27, 66 
commands 130 
screen grid 19 
with COLOR 167 
with MOUSE. DRAW 261, 262 

M 

machine language 59, 166 
MAGIC. MENU program 201, 
210-232 

main memory 28, 46 
manipulating tables of data 
158-159 
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memory 28, 46 
address 111, 112, 197, 198 
locations 165, 197, 198, 233 
menu maker routine 215-216 
MID$ function 141-143, 176 
minus sign (-) 12, 35, 36 

misspelled keywords 7, 23 
modifying 

instructions in programs 48 
precedence 37-38 
MOIRE program 134-136 
motion in graphics 104 
mouse 255-259 

MOUSE. DRAW program 261-263 
MOUSE. MOVE program 259-260 
multiple statement lines 102-103, 
114 

multiplication 12, 61 
repeated 13 

multiplying a number by itself 13 

N 

naming programs 111 
narrowing screen width 92 
negative numbers 61 
nested loops 72-73 
NEW statement 44-49, 66, 71, 

176 

new values 33 
NEW.COLORBOUNCE 
program 110 
NEXT statement 176 
7 NEXT WITHOUT FOR 
ERROR 169, 189 
nonnumeric character 149 
NORMAL statement 1 1 , 1 76 
NOTRACE statement 124, 176 
null string 140, 146-147, 152, 216 
numbers 

identifying See subscripts 
in conditions 60 
in parentheses 115 
in PRINT statement 10 
rounding 14 
scrambling 158-159 
small 14 

with FOR/NEXT statement 69 
numeric variable 140, 154 


0 

ON...GOSUB 219 

1 (condition is true) 59 
ONERR GOTO 176 
order of precedence in 

computation 35-38 
?OUT OF DATA ERROR 189 
?OUT OF MONEY ERROR 189 
70VERFLOW ERROR 189 

P 

parentheses () 115 

in an array name 156 
in strings 141,149 
to modify precedence 37-38 
with TAB 76 

parenthetical operations 61 
pause symbol xvii 
PEEK function 111-113, 176 
PEEK statement 233 
PLOT statement 18, 177 
error messages 23 
coordinates 23, 78, 106 
using to place bricks of 
color 17, 106-107 
using with HLIN 24-26 
plotting 

color bricks 17 
points 129, 132 
plus sign (+) 12, 36, 147 

POKE statement 92, 177, 204, 
233 

precedence, order of 
in evaluating statements 61 
in computations 35-36 
PRINT command 257 
PRINT statement 5-10, 177, 257 
character limit in 8-9 
omitting quotation marks 
from 31 

quotation marks with 8 
replacing with question 
mark 34 

printing Applesoft programs 
196-197 

PR# command 177, 197 
PR#0 command 256 
PR#1 command 196 
PR#3 command 256 
PR#4 command 256 
ProDOS 94, 233 
commands 165-181, 257 
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Professional Disk Operating 
System See ProDOS 
program(s) 47 
adding blank lines to 48 
adding missing lines to 47 
block-structured 202 
deleting lines from 93-94 
displaying 44, 49 
editing 84-88, 95 
erasing 44, 49 
executing 43 
inserting text in 88-92 
limiting 51, 61 
naming 111 
option numbers 102 
printing 196-197 
resuming execution of 51-51 
saving 57, 111 
sound-producing 111 
spaces in 66, 74-78, 92 
stopping execution of 51-52 
prompt, square bracket 5 

Q 

question mark (?) 
preceding error message 187 
using in place of PRINT 34 
QUILT program 73 
quotation marks (”) 5, 7, 8, 13, 31 
in string variables 140, 148-149 
with INPUT 55 

R 

radio frequency (RF) modulator 
xvi 

random numbers 115-118,159 
RANDOM program 116-117 
READ statement 168 
?REDIM’D ARRAY ERROR 159, 
190 

7REENTER 153 

REM statement 68, 102-104, 128, 
178 

remarks, adding to a program 68 
replacement statement 145 
replacing lines 93 
reserved words 30, 34, 184-185 
table of 183 
(RETURN ) key 8, 15-16, 51 
RETURN statement 178-203 
7RETURN WITHOUT GOSUB 
ERROR 122,190,203 
RIGHTS function 141-143, 178 
RND function 115, 178 
with graphics 118 
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rounding numbers 14 
routine 122 

RUN statement 44-49, 178 

s 

SAVE command 57,179 
saving programs 57, 111 
scientific notation 15 
SCRAMBLER program 201, 
202-210 

scrambling numbers 158-159 
screen(s) 

boundaries 105 
division of spaces in 79 
formatter routine 214-215 
grids 129 
width 92 

scrolling 51, 95, 152 
window 205, 206 
second disk drive 57, 64 
secondary menu 102 
semicolon 55, 74-75 
(shift) key 5 
slash mark (/) 12, 36, 93 

sound-producing programs 111 
small numbers 14 
(SPACE) bar 84 
SPACES program 77 
spaces 

avoiding extra 92 
controlling in programs 74-78 
in Applesoft statements 66 
spaghetti code 203 
speaker 111 
SQR 112 
statements 7 
Applesoft 165-181 
combining 102-103 
multiple on a line 102-103 
spaces in 66 
storing 43-49 
STEP command 71, 179 
STOP command 179 
stopping programs 51-52 
storing 

numbers in variables 28, 32-33 
programs on cassette tape 58, 
175, 195 

statements 43-49 
STR$ function 150, 179 
string functions 141-143 
7STRING TOO LONG 
ERROR 140, 190 
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string variable(s) 
adding a second string to 147 
arguments in 150 
characters in 139 
defined 139 
duplicating 145 
in arrays 154 
numeric 148-150 
quotation marks in 140, 
148-149 

resetting to zero 146-147 
values 140, 149-150 
subroutine(s) 127 
blocks 203-206, 210 
defined 121 
subscripts 154 
subtraction 12, 61, 113, 120 
symbols of condition 60, 61 
syntax 25 

7SYNTAX ERROR 173, 190 
for misspelled words 7, 23 
for reserved words 30 
for variables 140 

T 

TAB function 76, 78, 180 
tables of data 154, 158 
text 

mode 73 
window 16 

TEXT statement 27, 180 
TRACE statement 123-125, 180 
true conditions 59, 61-62 
7TYPE MISMATCH ERROR 149, 
190 


V 

VAL function 149-150, 180 
values of variables 28, 31, 105 
variable(s) 
defined 28 
defining with LET 28 
computations with 32-33 
for programming flexibility 126 
in arrays 154-160 
naming 29, 30, 33, 34, 156 
string 139-154 
summary of rules for 34 
using for storage 28, 32-33 
values of 28, 31, 105 
with FOR/NEXT 69-70 
vertical coordinates 129 
video 

cassette recorder (VCR) xvi 
input connector xvi 
mode 1 1 
monitor xvi 
VLIN loop program 66 
VLIN statement 26, 27, 66, 181 
VTAB statement 76-78, 181 

W 

WELCOME program 140 
wraparound 78, 92 

X, Y,Z 

0 (condition is false) 62, 146-147, 
167 

zeros, leading and trailing 14 


u 

unary minus sign 35, 36, 61 
?UNDEF’D FUNCTION ERROR 91 
?UNDEF’D STATEMENT 
ERROR 191 

upward pointing arrow See caret 
uppercase letters 5, 6 
utilities 56, 57 
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